Дано четырехзначное целое число. Определить имеется ли в записи числа цифра 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.