Задание в программе Lazarus(язык turbo delphi). Дано четырехзначное число. Определить входит ли в него цифры 2 или 7.
Пожалуйста, исправьте ошибку или решите заново)
program project1;
var X: integer;
begin
read(X);
if (X < 1000) or (X > 9999) then
begin
writeln('need 4 digits');
exit end;
while (X <> 0) do begin
if (X mod 10 ) = 2 or (X div 10 mod 10) = 2 or (X div 100) = 2 or (X div 1000) = 2
or
(X mod 10 ) = 7 or (X div 10 mod 10) = 7 or (X div 100) = 7 or (X div 1000) = 7 then
writeln('yes') else writeln('no');
end;
end.

program project1;var    X: integer;begin    read(X);    if (X < 1000) or (X > 9999) then    begin        writeln('need 4 digits');        exit;    end;        while (X > 0) do     begin        if (X mod 10 = 2) or (X mod 10 = 7) then begin            writeln('yes');            exit;        end;        x := x div 10;    end;        writeln('no');end.