обработка строковых и символьных величин паскаль

[Георгий Златов]

текст длинною 255, сообщить какой символ чаще всего встречается, если таких символов несколько, то сообщить их всех.
Помогите, вроде правильно написал, но как вывести эти символы,что-то не получаетя

program ff;
     var L,c:char;
s:string;
i,max:integer;
a:array ['A'..'Z'] of integer;
begin

for c:='A'  to 'Z' do
a[c]:=0;
readln(s);
for i:=1 to length(s) do
begin
L=upcase(s[i]);
a[L]=a[L]+1;
end;
max:=a['A'];
for c:='B' to 'Z' do
if a[c] > max then max:=a[c];
for c:='A' to 'Z' do;
if a[c]=max then
writeln(c);
end.

[VIK_aka_TOR]

немного изощрившись вот что получил...

program ff;
var 
s:string;
i,max:integer;
a:array [1..255] of integer;
begin
for i:=1 to 255 do
  a[i] := 0;
readln(s);
for i:=1 to length(s) do
  inc(a[ord(s[i])]);
max := a[1];
for i:=1 to 255 do
  if max < a[i] then
    max := a[i];
    
for i:=1 to 255 do
  if a[i] = max then
    writeln(chr(i));
end.

вводите как латиницу так и кирилицу... все что есть на клаве...)))