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

Program userabc;
Uses crt;
Const
  ts = ['1', '2', '3', '4', '5', '6', '7', '8', '9', '0'];
Var s   : char; txt : text;
  i,j   : integer;
Begin
  assign(txt, 'c:txt.txt');
  reset(txt);
  i := 0;
  j := 0;
  While Not(EOF(txt)) Do
  Begin
    read(txt, s);
    If ord(s) In [128..175] Then
      i := i + 1;
    If ord(s) In [224..239] Then
      i := i + 1;
    If s In ts Then
      j := j + 1
  End;
  close (txt);
  If i > j Then
    writeln('Русских букв в тексте больше, чем цифр')
  Else writeln('Цифр в тексте больше, чем русских букв');
End.

uses crt;
const z: set of char=['0'..'9'];
      a: set of char=['А'..'Я','а'..'я'];
var f: text;
    c: char; kz,ka: byte;
begin
assign(f,'D:\in.txt');
reset(f);
while not (eof(f)) do
      begin
      read(f,c);
      if c in z then inc(kz) else
         if c in a then inc(ka);
      end;
close(f);
if kz>ka then writeln('Цифр больше') else
   if kz<ka then writeln('Русских букв больше') else
      writeln('Одинаково');
end.