Задача PascalABC.NET на работу со строками

[kotophei999]

Для каждого символа текста указать, сколько раз он встречается в тексте и вывести в текстовый файл слово, в котором этот символ встречается наиболее часто. Если таких слов несколько, вывести первое встретившееся, последнее встретившееся, все слова.
В программе используйте подпрограммы.

Нашёл такое решение, но оно не то...и без процедур, помогите:

const
  p = [' ', '.', ',', '!', '?'];
 
 
var
  t, g: text;
  a: array [192..255] of integer;
  s, sl, slmax: string;
  i, j, k, ch, imax: byte;
 
begin
  assign(t, 'in.txt');
  assign(g, 'out.txt');
  reset(t);
  while not (eof(t)) do
  begin
    readln(t, s);
    for i := 1 to length(s) do
      if ord(s[i]) > 191 then inc(a[ord(s[i])]);
  end;
  imax := 192;
  writeln('Частота повторений символов в тексте');
  for i := 192 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.