Подсчитать сколько НЕ цифр в файле — Pascal(Паскаль)

uses crt;
var f:text;
    i:byte;
    name,s:string;
    k:integer;
begin
clrscr;
write('Имя файла для чтения: ');
readln(name);
name:=name+'.txt';
assign(f,name);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Не могу открыть файл ',name);
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
k:=0;
while not eof(f) do
 begin
  readln(f,s);
  for i:=1 to length(s) do
  if not(s[i] in ['0'..'9']) then k:=k+1;
 end;
close(f);
write('В файле не цифр=',k);
readln
end.