Найти наибольшее количество цифр идущих подряд в файле - Turbo Pascal

var
  cmax, c, i: integer;
  s: String;
  F: text;
  d: string;
 
begin
  writeln('введите имя файла');
  readln(d);
  d:='C:\Users\Desktop\'+d+'.txt';
  cmax := 0;
  c := 0;
  Assign(F, d);
  reset(F);
  while not (eof(f)) do 
  begin
    readln(F, s);
    for i := 1 to length(s) do
      if (s[i] >= '0') and (s[i] <= '9') then
        c := c + 1
      else
      begin
        if c > cmax then
          cmax := c;
        c := 0;
      end;
    if c > cmax then
      cmax := c;
    end;
    
  Writeln('Максимальное количество цифр, идущих подряд - ', cmax);
  Readln;  
end.