Задача на символьный файл Опции

[Atom]

Определить, чего больше в символьном файле – цифр или букв ла-тинского алфавита.
Вод собствено такая не сложная задача, но чегото не как не получается, помогите...

[klem4]

Вот как-то так

uses crt;

var
  f: file of char;
  ch: char;
  a, b: Integer;

begin

  clrscr;

  assign(f, 'chars.ch');
  rewrite(f);

  repeat

    readln(ch);

    if ch <> '.' then write(f, ch);

  until ch = '.';

  reset(f);

  a := 0; b := 0;

  while not(eof(f)) do begin

    read(f, ch);

    if ch in ['a'..'z', 'A'..'Z'] then inc(a) else
     if ch in ['0'..'9'] then inc(b);

  end;

  close(f);

  if a > b then writeln('A') else
   if b > a then writeln('B') else writeln('AB');

end.