Program nomer4_9;
    uses crt;
    Var
    slovomax:array [1..20] of string;
    kmax:array [1..20] of integer;
    s,slovo:string;
    kl,i,j,max,k:integer;
     Begin
    Clrscr;
     Write ('text: ');
     Readln (S);
    S:=' '+S+' ';
    j:=0;
    Kl:=0;
    i:=1;

    while i<=length(S)-1 do
    Begin
    If (S[i]=' ') and (S[i+1]<>' ')
    Then
    Begin
    Slovo:='';
    While (S[i+1]<>' ') do
   Begin
    Slovo:=Slovo+S[i+1];
    if Slovo[i]='a' then Kl:=Kl+1;
    if Slovo[i]='i' then Kl:=Kl+1;
    if Slovo[i]='e' then Kl:=Kl+1;
    if Slovo[i]='o' then Kl:=Kl+1;
    i:=i+1;
   End;
if kl>0 then
begin
j:=j+1;
slovomax[j]:=slovo;
kmax[j]:=kl;
Writeln ('slovo=',slovo);
Writeln ('kl= ',kl);
kl:=0;
end;
end;
i:=i+1;
end;
max:=kmax[1];
for i:=1 to j do
if kmax[j]>max then
begin
max:=kmax[j];
k:=j;
end;
writeln('u slovi ',slovomax[k], 'naibilche golosnih =',max);
Readkey;
End.

While (S[i+1]<>' ') do Begin
  Slovo:=Slovo+S[i+1];
  if Slovo[i]='a' then Kl:=Kl+1;
  if Slovo[i]='i' then Kl:=Kl+1;
  if Slovo[i]='e' then Kl:=Kl+1;
  if Slovo[i]='o' then Kl:=Kl+1;
  i:=i+1;
End;

While (S[i+1]<>' ') do Begin
  Slovo:=Slovo+S[i+1];
  if s[i+1] in ['a', 'i', 'e', 'o'] then kl := kl + 1;
  i:=i+1;
End;