Строковый тип переменной.Паскаль

[Марина22]

помогите пожалуйста доделать программу.
Дана строка, вывести часто повторяющуюся букву.
var s,s0:string;
n:integer;
begin
s0:=qwertyuiopasdfghjklzxcvbnm;
readln(s);
for i:= to lenght(s) do
begin
.
.
.
end;
writeln(s[n]);
может что то не правильно? Заранее спасибо

[Poma][a]

Так-с..

a : array ['A'..'Z'] of Integer; // не забудьте его проинициализировать!

begin
     ReadLn (s);

     for i := 1 to Length(s) do
          Inc (a[UpCase(s[i])]);

     max := 'A'; // max : Char
     for i := 2 to Length(s) do
          if a[max] < a [i] then
               max := i;

     WriteLn (max)
end.

Не проверял..