Файл: Для каждого символа текста сказать сколько раз он встречается в тексте

uses crt;
const p=[' ','.',',','!','?'];
var t,g: text;
    s,sl,slmax: string;
    a: array [48..255] of integer;
    i,j,k,ch,imax: byte;
begin
assign(t,'C:\in.txt');
assign(g,'C:\out.txt');
reset(t);
while not (eof(t)) do
      begin
      readln(t,s);
      for i:=1 to length(s) do
          if ord(s[i])>47 then inc(a[ord(s[i])]);
      end;
imax:=48;
writeln('Частота повторений символов в тексте');
for i:=48 to 255 do
    begin
    write(chr(i):3,'-',a[i]:3,'         ');
    if a[i]>a[imax] then imax:=i;
    end;
writeln;
writeln('Чаще всего (',a[imax],') встречается ',chr(imax));
reset(t);
ch:=0;
while not (eof(t)) do
      begin
      readln(t,s);
      s:=s+' ';
      sl:='';
      for i:=1 to length(s) do
          if not (s[i] in p) then sl:=sl+s[i] else
             if length(sl)>0 then
                begin
                k:=0;
                for j:=1 to length(sl) do
                    if sl[j]=chr(imax) then inc(k);
                if k>ch then
                   begin
                   slmax:=sl;
                   ch:=k;
                   end;
                sl:='';
                end;
      end;
rewrite(g);
writeln('Символ ',chr(imax),' чаще всего встретился в слове ',slmax);
writeln(g,'Символ ',chr(imax),' чаще всего встретился в слове ',slmax);
close(t);
close(g);
end.