text.txt

[Pocker]

решите задачку в pascale если не трудно
Посчитать количество цифр в файле text.txt

[ROMA2PVT]

kol:=0;
  while not eof(f) do
  begin
    readln(f, s);
    for i := 1 to length(s) do
      if s[i] in ['0'..'9'] then
      inc(kol);
  end;
  close(f);
  if kol=0 then writeln('В файле нет чисел!!!')
  else writeln('Количество чисел:=',kol);