Как написать в паскале? дано целое трехзначное число n. верно ли, что в нем есть хотя бы одна цифра 7?

var
  n: integer;
begin
  readln(n);
  if (n mod 10 = 7) or (n div 100 = 7) or ((n div 10) mod 10 = 7) then writeln(true)
  else writeln(false);
end.

Program new
var
begin
for i =10 to 1000 do
begin
if x mod i = 7 then
written('yeah')
end;
i:=i*10
end;
end.