Saurday

Как же я люблю субботы. Вот на радостях даже сделал задачку по информатике... Она должна определять какая самая частая буква из всех, которые употребляются в тексте, ну а если таких букв несколько, то вывести любую из них :D Вот она:


program ex1;
type let='a'..'z';
var
a:array ['a'..'z'] of integer;
s:string;
c,max:char;
i,mx:integer;
begin
readln (S);
i:=1;


while S[i]<>'.' do
                begin
                if S[i]<>' ' then
                             begin
                             c:=S[i];
                             a[c]:=a[c]+1;
                             end;
                i:=i+1;
                end;
mx:=0;
for c:='a' to 'z' do
begin
if a[c]>mx then
                                      begin
                                      mx:=a[c];
                                      max:=c;
                                      end;
end;

writeln;
writeln (max);
end.

Ваш, не использующий стандартные шаблоны, автор