Найдите гласную букву, что встречается наиболее часто

var
 s:string;
 i,a,j,k:integer;
 ch:char;
begin
 readln(s);
 for i:=ord('A') to ord('Z') do begin
  for j:=1 to length(s) do begin
   if (chr(i)=s[j]) or (chr(i+6+26)=s[j]) then inc(k);
  end;
  if k>a then begin
   a:=k;
   ch:=chr(i);
  end;
  k:=0;
 end;
 writeln(ch);
end.

program chastota;
uses crt;
var
   s:string;
   c:char;
   i,a,e,it,o,u,y:byte;
begin
clrscr;
  write('string: ');
  readln(s);
  for i:=1 to length(s) do
      case s[i] of
      'a':a:=a+1;
      'e':e:=e+1;
      'i':it:=it+1;
      'o':o:=o+1;
      'u':u:=u+1;
      'y':y:=y+1;
      end;
if (a>e) and (a>it) and (a>o) and (a>u) and (a>y) then
     writeln('''a'' vstre4aets9 naibolee 4asto, a esli to4no, to ',a,' raz');
if (e>it) and (e>o) and (e>u) and (e>y) then
     writeln('''e'' vstre4aets9 naibolee 4asto, a esli to4no, to ',e,' raz');
if (it>o) and (it>u) and (it>y) then
     writeln('''i'' vstre4aets9 naibolee 4asto, a esli to4no, to ',it,' raz');
if (o>u) and (o>y) then
     writeln('''o'' vstre4aets9 naibolee 4asto, a esli to4no, to ',o,' raz');
if (u>y) then
     writeln('''u'' vstre4aest9 naibolee 4asto, a esli to4no, to ',u,' raz');
  readln;
end.