Программа на паскале!Heeeelp

[bestdima]

Помогите пожалста
Найти в тексе наибольшее количество цифр идущих подряд читать из файла??
Очень нужно!!!!

[Asker13]

program Project2;
var
  f: Text;
  s: string;
  i, max, m1: integer;

begin
  Assign(f, 'Input.txt');
  Reset(f);
  ReadLn(f, s);
  Close(f);

  i := 1;
  max := 0;

  while i <= Length(s) do begin
    m1 := 0;
    while (s[i] in ['0'..'9']) and (i <= Length(s)) do begin
      Inc(i);
      Inc(m1);
    end;
    if m1 > max then max := m1;
    Inc(i);
  end;

  Assign(f, 'Output.txt');
  Rewrite(f);
  WriteLn(f, max);
  Close(f);
end.

Поставь +.

[bestdima]

спасибо большое!!!