Подсчитать сколько раз в текстовом файле встречается слово, состоящее из гласных букв

f:text;
a,b,c:string;
w,e,r,i,s1:integer;
begin
assign(f,'8ish.pas');
reset(f);
while not eof(f) do readln(f,a);
{readln(f,b);
readln(f,c); }
close(f);
writeln(a);
s1:=length(a);
w:=0;
for i:=1 to s1 do begin if (a[i]='e') or   (a[i]='y') or (a[i]='u') or
 (a[i]='o') or  (a[i]='a') or  (a[i]='i') and  (a[i+1]='e') or   (a[i+1]='y') or (a[i+1]='u') or
  (a[i+1]='o') or  (a[i+1]='a') or  (a[i+1]='i') then w:=w+1; end;
 
 writeln(w);
 
 
 
 
 
readln;
end.

program z1;
const q=['q','w','r','t','p','s','d','f','g','h','j','k','l','z','x','c','v','b','n','m'];
var
f:text;
b,c,st:string;
a:array[1..100] of string;
 
w,e,r,i,s1,k,j:integer;
begin
assign(f,'8ish.pas');
reset(f);
 
readln(f,st);
st:=' '+st;
for i:=1 to length(st) do
if st[i]=' ' then k:=k+1 else a[k]:=a[k]+st[i];
 
   for i:=1 to k do
begin
r:=0;
for j:=1 to length(a[i]) do
if a[i][j] in q then r:=1;
  if r=0 then e:=e+1;
end;
 
 
 
 
 
 
writeln(e);
readln;
end.

program z1;
const q=['q','w','r','t','p','s','d','f','g','h','j','k','l','z','x','c','v','b','n','m'];
var
f:text;
b,c,st:string;
a:array[1..100] of string;
w,e,r,i,s1,k,j:integer;
begin
assign(f,'input.txt');
reset(f);
readln(f,st);
close(f);
st:=' '+st;
for i:=1 to length(st) do
if st[i]=' ' then k:=k+1 else a[k]:=a[k]+st[i];
e:=0;
for i:=1 to k do
begin
r:=0;
for j:=1 to length(a[i]) do
if a[i][j] in q then r:=1;
  if r=0 then e:=e+1;
end;
writeln(e);
readln;
end.