Найти в типизированном файле число повторяющиеся больше всего раз - Free Pascal

uses  Crt;
const n=10;
var   a:file of char;
      i,t,k:byte;
      c,c1,c2:char;
begin
      ClrScr;
      Assign(a,'F:\FPC\Program\ABC.dat');
       Rewrite(a);
        for i:=1 to n do
         begin
           Readln(c);
           Write(a,c);
         end;
        Close(a);
      k:=0;
       for c1:='0' to '9' do
        begin
          Reset(a);
          t:=0;
          While not Eof(a) do
           begin
             Read(a,c);
             if c=c1
              then Inc(t);
             if t>k
              then
               begin
                 k:=t;
                 c2:=c1;
               end;
           end;
        end;
       Writeln;
      if k<2
       then Writeln('Net povtorjajushihcja cisel')
       else Writeln('Cifra ',c2,' povtorjaetsja ',k,' ras');
      ReadKey;
end.