Напечатать последовательность строчных английских букв из входной последовательности и частоты их повторения

uses crt;
var a:array[byte] of byte;{массив встречаемости символов в строке}
    i,j:byte;
    c:char;
begin
clrscr;
writeln('Введите текст маленькими латинскими символами, окончание ввода Enter:');
for i:=1 to 255 do a[i]:=0;{обнулим исходный массив}
repeat
read(c);
if c in ['a'..'z'] then
a[ord(c)]:=a[ord(c)]+1;
until c=#13;
writeln('Встречаемость символов:');
j:=0;
for i:=67 to 122 do
if a[i]>0 then{если ячейка не пустая}
 begin
  writeln(chr(i),' - ',a[i]);{выводим символ и количество его вхождений}
  j:=j+1;
  if j mod 22=0 then readln;{если не входят на экран, то после 22 задержка}
 end;
readln
end.

writeln('Введите текст маленькими латинскими символами, окончание ввода z');
for i:=1 to 255 do a[i]:=0;{обнулим исходный массив}
repeat
read(c);
if c in ['a'..'z'] then
a[ord(c)]:=a[ord(c)]+1;
until c='z';
writeln('Встречаемость символов:')