С клавиатуры вводится символьная строка. Определите какой символ встречается в ней чаще всего

Type

index='0' ... 'z';

var

Ch:array[0 ... 255] of integer;

s:string;

i, max, imax:integer;

begin

{ очищаем массив счетчиков }

for i:=0 to 255 do Ch[i]:=0;

Writeln ('Введите текст') ;

Readln (s) ;

for i:=1 to Length (s) do Inc (Ch[Ord (s[i]) ]) ;

max:=Ch[0]; imax:=0;

for i:=33 to 255 do { не рассматриваем непечатаемые символы и пробел}

if max
Writeln ('Символ "', Chr (imax),'" встретился ', max,' раз (а) ')

end.

Тестовое решение:

Введите текст

"Что значит имя? Роза пахнет розой, хоть розой назови её, хоть нет." (В. Шекспир)

Символ "о" встретился 9 раз (а)