Строка: Выбрать гласные буквы, которые входят в каждое слово.

Program test_set;
 uses crt;
 const gol:array[1..4] of char=('a','o','e','i');
 type mas=array[1..20] of string;
mnoj=set of char;
 var a:string;
i,n,j,z,l:byte;
 b:mas;
ptr:array[1..10] of mnoj;
 procedure delspases(var s:string);
 begin
while (pos('',s))<>0 do
delete (s,pos('',s),1);
end;
procedure textword(str:string; var word:mas;var f:byte);
 var text:string;
p:byte;
 begin
text:=str +'';
 //delspase(text);
 repeat
 p:=pos('',text);
 if p>1 then
begin
 f:=f+1;
 word[f]:=copy(text,1,p-1);
 delete(text,1,p);
end;
 until text='';
end;
begin
 clrscr;
 writeln('Введіть рядок ');
 readln(a);
 textword(a,b,n);
 for z:=1 to n do
   begin
ptr[z]:=[];
 for j:=1 to length(b[z]) do
ptr[z]:=ptr[z]+[copy(b[z],j,l)];
 end;
for i:=1 to 4 do
  begin 
  l:=0;
  for z:=1 to n do
if gol[i] in ptr[z] then l:=1+1;
 if 1=n then writeln('буква',gol[i],'в кожному слові');
 end;
readln;
 end.