uses crt;
const m=25; n=15;
var
arr: array[1..n,1..m] of byte;
let: array[1..30] of byte;
i, j: byte;
begin
clrscr;
{Заполняем массив случайным набором букв и символов}
 randomize;
  for i:=1 to n do begin
     for j:=1 to m do begin
         arr[i,j]:=ord('A')+random(ord('Z')-ord('A')+1);
         write (chr(arr[i,j]):2)
     end;
  end;
  writeln;
{Выводим сколько раз встретился каждый элемент}
 for i:=1 to n do
     for j:=1 to m do
         let[arr[i,j]-ord('A')+1]:=let[arr[i,j]-ord('A')+1]+1;
 for i:=1 to (ord('Z')-ord('A')+1) do begin
     write (chr(i+ord(i+ord('A')-1)):3,'-',let[i]:2);
     if i mod 5 = 0 then
        writeln;
 end;
readln;
end.