Даны натуральное число n и символы S(1), ..., S(n)

[Zhasik]

Даны натуральное число n и символы S(1), ..., S(n).
найти символ, который встречается чаще других



pomogite pojaluista! (((

[Ponkole]

при любой возможности добавляй мне рейтинга пожалуйста у меня спор с одним чуваком

uses CRT;
Var A:array [1..512] of integer;
     n,i,max:integer;r:char;
begin
clrscr;
read(n);
max:=1;
for i:=1 to n do begin
read(r);
inc(a[ord(r)]);
if a[ord(r)] > a[max] then max:=ord(r);
end;
clrscr;
readln;
readln;
writeln(' наиболее повторяюшийся символ "',chr(max),'"');
readln;
readln;
end.