Напечатать все гласные буквы, которые входят в каждое слово

var
n,a:set of char;
s:string;
f,i,k,j:integer;
begin
a:=['а','и','у','е','о','ы','я']; 
readln(s);
f:=length(s);
for i:=1 to length(s) do
if s[i] in a then 
begin 
for j:=1 to length(s) do  
if s[i]=s[j] then k:=k+1;
if k>=10 then n:=n+s[i];
end;
writeln(n);
end.

const gl=['а','и','у','е','о','ы','я'];
var n,a:set of char;
    s,s1:string;
    f,i,j:integer;
begin
a:=gl;
readln(s);
s:=' '+s;
f:=length(s);
i:=2;
while i<=f do
if(s[i]<>' ')and(s[i-1]=' ') then
 begin
  s1:='';
  j:=i;
  while(j<=f)and(s[j]<>' ') do
   begin
    s1+=s[j];
    j+=1;
   end;
  n:=[];
  for var k:=1 to length(s1) do
  if s1[k] in gl then n+=[s1[k]];
  a*=n;
  i+=length(s1);
 end
else i+=1;
if a=[] then write('Нет малых гласных букв, входящих в каждое слово')
else
 begin
  writeln('Малые гласные буквы, входящие в каждое слово');
  foreach c:char in a do
  write(c,' ');
 end 
end.