Дано четырехзначное целое число. определить имеется ли в записи числа цифра 3 паскаль

Var
  s:string; i,c:integer;
Begin
  Write('Введите четырёхзначное число ');
  Readln(s);
  if length(s) = 4 then Begin
  for i:= 1 to 4 do 
    if s[i]='3' then c:=1;
  if c=1 then write('Тройка есть') else write('Троек нет');
  End else write('Повторите ввод числа');
End.

Var
 n : Integer;
 f : Boolean;
Begin
  Write('Введите четырёхзначное число ');
  Readln(n);
  f:=False;
  While (n>0) do
  Begin
   f:=f or ((n mod 10)=3);
   n:=n div 10;
  end;
  if f then writeln('Тройка есть') else writeln('Троек нет');
End.