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

var
  l, m, i: integer;
  s: string;

begin
  readln(s);
  l := 0;
  m := 0;
  for i := 1 to Length(s) do
    if s[i] in ['0' .. '9'] then
      Inc(l)
    else
    begin
      if l > m then
        m := l;
      l := 0
    end;
  writeln('max digital sequence length is ', m);

end.