Дана строка, длиной не более 80 символов. Подсчитать количество повторений каждой встречающейся в строке буквы — Pascal(Паскаль)

Напечатать результат обработки в форме:
< буква > < количество повторений > < исходная строка>

uses crt;
const bk=['A'..'Z','a'..'z','А'..'п','р'..'ё'];
var a:array[byte] of byte;{массив встречаемости символов в строке}
    s:string[80];
    i,j:byte;
    c:char;
begin
clrscr;
writeln('Введите cтроку до 80 символов:');
readln(s);
for i:=67 to 241 do a[i]:=0;{обнулим исходный массив}
for i:=1 to length(s) do
if s[i] in bk then a[ord(s[i])]:=a[ord(s[i])]+1;
j:=0;
for i:=67 to 241 do
if a[i]>0 then{если ячейка не пустая}
 begin
  writeln(chr(i),' - ',a[i],' - ',s);
{выводим символ и количество его вхождений и нафига то строку(я бы это выкинул)}
  j:=j+1;
  if j mod 22=0 then readln;{если не входят на экран, то после 22 задержка}
 end;
readln
end.