Найти в строке наибольшую встречающуюся букву

Program fun6;
Var A:array['А'..'Я'] of byte;
    i,imax:char;
    s,s1:string;
Begin
    writeln
    ('Введите строку: ');readln(s);
    s:=s+' ';
    While Pos(' ',s)>0 do
    Begin
      s1:=Copy(s,1,Pos(' ',s)-1);
      Delete(s,1,Pos(' ',s));
      if UpCase(s1[1]) in ['А'..'Я'] then inc(A[UpCase(s1[1])]);
    End;
    imax:='А';
    For i:='А' to 'Я' do
     if A[i]>A[imax] then imax:=i;
    writeln('Результат работы: ',imax);
    readln;
End.

Var A:array['А'..'Я'] of byte;
i,imax:char;
s,s1:string;
Begin
write('Введите строку: ');readln(s);//вводим строку
s:=s+' ';//ставим в конец пробел, чтобы с последним словом сработал delete
While Pos(' ',s)>0 do begin //пока позиция пробела больше 0
s1:=Copy(s,1,Pos(' ',s)-1); //записываем слово в переменную
Delete(s,1,Pos(' ',s));//удаляем это слово из общей строки
if UpCase(s1[1]) in ['А'..'Я'] then inc(A[UpCase(s1[1])]);{если !!!!первая буква!!!!
слова русская, то +1 к её встречаемости}
End;
imax:='А';
For i:='А' to 'Я' do {ну а в этом цикле просто путём сравнения находим ту букву,
которая больше всех +1 набрала}
if A[i]>A[imax] then imax:=i;
writeln('Результат работы: ',imax);
readln;
End.

var
  A:array['А'..'Я'] of byte;
  s:string;
  max,i:char;
  j:integer;
begin
  write('Введите строку: '); readln(s);
  for j:=1 to length(s) do //цикл по всей строке
    if UpCase(s[j]) in ['А'..'Я'] then //если символ от А до Я
      inc(A[UpCase(s[j])]);//встречаемость +1
  max:='А';
  For i:='А' to 'Я' do //находим букву, с наибольшей встречаемостью
    if A[i]>A[max] then max:=i;
  writeln('Результат работы: ',max);
end.