Определить, сколько раз и какие символы встречаются в текстовом файле

program fail;
uses crt;
type mas_tips=array [32..126] of integer;
var f1:text;
    f2:text;
    c:char;
    x,y,max,ymax:integer;
    var mas:mas_tips;
begin
clrscr;
     assign (f1,'C:\BP\Bin\f1.txt');
     assign (f2,'C:\BP\Bin\f1.txt');
     reset (f1);
     rewrite (f2);
     while not (eof(f1)) do begin
           while not (eoln(f1)) do begin
                                   read (f1,c);
                                   x:=ord(upcase(c));
                                   if (x>31) and (x<127) then mas[x]:=mas[x]+1
                                   end;
           readln (f1)
           end;
  for x:=32 to 126 do if mas[x]>0 then write (chr(x),'-',mas[x]);
 c:=readkey
end.

type TMyRec = record
              sym:char;
              freq:integer;
              end;
var
recs:array[32..126] of TMyRec;
i,j,mx,nm:byte;
rec:TMyRec;

for i:=32 to 126 do 
 begin
 recs[i].sym:=chr(i);
 recs[i].freq:=mas_tips[i];
 end;
 
for i:=32 to 125 do
 begin
 mx:=recs[i].freq;
 nm:=i;
 for j:=i+1 to 126 do
  begin
  if recs[j].freq > mx then begin mx:=recs[j].freq; nm:=j; end;
  end;
 if mx <> i then
  begin
  rec:=recs[i];
  recs[i]:=recs[nm];
  recs[nm]:=rec;
  end;
 end;
for x:=32 to 126 do if recs[x].freq>0 then write (recs[x].sym,'-',recs[x].freq);