Надо посчитать, какой символ чаще всего повторяется

uses crt;
var s:string;
    k,p:integer;
begin
     readln(s);
     p:=1;
     while p<=length(s) do
        begin
             s[p]:=UPcase (S[p]);
             write(S[p]);
             Inc (p);
             read
             end;
             end.

uses crt;
var s: string;
    a: array [32..255] of byte;
    i,imax: byte;
begin
write('s='); readln(s);
for i:=1 to length(s) do
    inc(a[ord(s[i])]);
imax:=32;
for i:=33 to 255 do
    if a[i]>a[imax] then imax:=i;
write('Чаще всего повторяются символы: ');
for i:=32 to 255 do
    if a[i]=a[imax] then write(chr(i),', ');
end.

var s: string;                           //переменная для строки
    a: array [32..255] of byte;          //массив для подсчета количества каждого символа
    i,imax: byte;                        //переменная-счетчик и переменная для максимального
begin
write('s='); readln(s);                 //запрашиваем и считываем строку
for i:=1 to length(s) do                //в цикле с параметром перебираем все символы строки от первого до последнего (последний определяем с помощью функции, которая возвращает длину строки)
    inc(a[ord(s[i])]);                  //увеличиваем на единицу тот элемент массива, который имеет порядковый номер, равный номеру данного символа в кодовой таблице (узнаем этот номер с помощью функции ord)
imax:=32;                              //чтобы найти максимальный элемент, допустим, что чаще всего встречается первый символ (у нас отсчет идет с 32 номера)
for i:=33 to 255 do                    //в цикле с параметром перебираем все элементы массива от 33 до 255
    if a[i]>a[imax] then imax:=i;      //если значение элемента массива больше, чем значение ранее найденного ранее максимального, меняем значение индекса максимального на значение текущего элемента ("новонайденного максимального")
write('Чаще всего повторяются символы: ');
for i:=32 to 255 do                     //в цикле с параметром снова перебираем элементы массива, если их количество совпадает с количеством максимально частно встречающихся, вывоим на экран
    if a[i]=a[imax] then write(chr(i),', ');
end.