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

[Atom]

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

[Atom]

program fail;
var f:file of char;
    c:char;
    a,b:integer;
Begin
 Assign(f,'file1.sim');
 Rewrite(f);
writeln('Введите символы, окончание точка');
readln©; 
  while c<>'.' do
    begin
      write(f,c);       readln©;
    end;
    reset(f);     
 write('Получен файл');
  while not eof(f) do
     begin
       read(f,c);       
 write©;      
end;
 writeln;
 a:=0;
 b:=0;
 begin
 assign (f,'file1.sim');
 reset (f);
 while not eof (f) do
 read (f,c);
 while not eof (f) do
 if c in ['a'..'z', 'A'..'Z'] then
 a:=a+1
 else
 b:=b+1;
 end;
 close (f);
 begin
 if a>=b then writeln ('больше букв');
 if a<b then writeln ('больше цифр');
 end;
 end.

Ну вот так у меня получилось, только не работает)) Что не так?))