Введите четырехзначное число и проверmnt есть ли в нем цифра 7

Var
  n,x:integer;
  s:string;
begin
s:='Нет';
readln(n);
while n>0 do
  begin
  x:=n mod 10;
  if x=7 then s:='Да';
  n:=n div 10;
  end;
writeln(s);
end.