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

uses crt;
var f:text;
    i:byte;
    nf:string;
    c:char;
    kb,kc:integer;
begin
clrscr;
write('Имя файла для чтения: ');
readln(nf);
nf:=nf+'.txt';
assign(f,nf);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Файл ',nf,' не найден!');
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
kc:=0;
kb:=0;
while not eof(f) do
 begin
  read(f,c);
  if c in ['0'..'9'] then kc:=kc+1
  else if c in [#168,#184,#192..#255] {символы русских букв в кодировке ANSI}
  then kb:=kb+1;
 end;
close(f);
if kc>kb then write('Цифр больше чем русских букв')
else if kb>kc then write('Русских букв больше чем цифр')
else write('Русских букв и цифр поровну');
readln
end.