Имеется строка символов, содержащая буквы латинского алфавита и цифры. Найти длину наибольшей последовательности цифр, идущих подряд — Pascal(Паскаль)

{Имеется строка символов, содержащая буквы латинского алфавита
 и цифры. Найти длину нибольшей последовательности цифр, идущих
 подряд.}
program boc;

var s,max,ch:string;i:integer;c:char;
begin
  repeat
   write('введите строку:'); readln(s);
      ch:=''; max:='';
      for i:=1 to length(s) do
      begin if (s[i]>=#48) and (s[i]<=#57) then ch:=ch+s[i]
            else begin if length(ch)>length(max) then max:=ch;
                       ch:=''
                 end;
      end;
      writeln('длина наибольшей последовательности=',length(max));
      writeln('продолжить?(y/n)');
      readln(c);
  until c='n'
end.