program pp;
uses wincrt;
Type
eng= record
ch:string;
nn:integer;
end;
fiche= file of eng;
mat=array[1..20,1..20] of char ;
var
f:fiche;
m:mat;
n:Integer;

procedure remp (var m:mat; n:Integer);
Var
i,j:integer;
Begin
if i<=n
else if j<=n
else readln (m[i,j]);
if m[i,j] in ['A'..'Z','a'..'z'];
else Procedure remp(m,n,i,j+1)
else Procedure remp(m,n,i,j)
else Procedure remp(m,n,i+1,1)
end;

Procedure trans ( var f:fiche;m:mat;n:integer);
Var
e:eng;
ReWrite(f);
for i:=1 to n do
ch:='';
for j:=1 to n Do
ch:=ch+m[i,j]  ;
Begin
e.line:= (Ch)
e.nb:= voyelle (ch);
write (f,e);
end;
close(f);
end;

function voyelle (ch:string):integer;
Begin
for i:=0 to Length(ch) Do
if ch[i] in ['a','e','i','o','u','y';'A','E','I','O','U','Y']
then n:=i+1
end;

Procedure affich (f:fiche) ;
Begin
for i:=1 to eof (f) Do
	  begin
      ReadLn(f);
      WriteLn(f);
    end;
END.

Begin
Assign (f,'c:\bac2020\20.dat');
remp (m,nn) ;
trans (f,m,n);
affich (f);
end.