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

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.

Var f:text;
    s:string;
    i,j,k:integer;
Begin
    Assign(f,'a.txt');Reset(f);
    i:=0;j:=0;
    While not Eof(f) do
     Begin
      readln(f,s);
      For i:=1 to length(s) do
       Begin
        if s[i] in ['а'..'я','А'..'Я'] then inc(j);
        if s[i] in ['0'..'9'] then inc(k);
       End;
     End;
    if j>k then writeln('Русских букв больше') 
     else if j<k then writeln('Цифр больше') 
      else writeln('Одинаковое кол-во');
    Close(f);
End.