program cha;
uses wincrt;
type tab=array[1..20]of string;
     tab1=array[1..20]of integer;
var n,i,j,maxi:integer;
    t:tab ;
    v:tab1;
procedure saisie(var t:tab;var n:integer);
var i,j:integer;
    test:boolean;
begin
repeat
writeln('Donner n');
readln(n);
until n in [5..20];
for i:=1 to n do
begin
repeat
writeln('Donner l''element',i);
readln(t[i]);
test:=true;
j:=0;
repeat
begin
j:=j+1;
if ord((t[i])[j]) in [65..90] then test:=true else test:= false;
end;
until (j=length(t[i])) or (test=false);
until (t[i]<>'') and (test=true) and (length(t[i])<=20) ;
end;

end;
procedure voyelle(var v:tab1;t:tab;n:integer);
var i,j,y:integer;
begin
for i:=1 to n do
begin
y:=0;
for j:=1 to length(t[i]) do
if ord((t[i])[j])  in [65,69,73,79,85,89] then    y:=y+1;
v[i]:=y;


end;


end;
function max (v:tab1;n:integer): integer;
var i,j,maxo:integer;
begin
maxo:=v[1];
for i:=1 to n do
begin
if v[i]>maxo then maxo:=v[i];
end;
j:=0;
repeat
j:=j+1;
until (v[j]=maxo) or (j=n);

max:=j;

end;
begin
saisie(t,n);
voyelle(v,t,n);
maxi:=max(v,n);

writeln('Le nom comportant le maximum des voyelles est :',t[maxi]);
end.