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

Program Num13;
const p: set of char=[' ',',',';',':','!','?','.'];
var s,sl: string;
    g,t: set of char;
    i,j: byte;
begin
g:=['ё','у','е','ы','а','о','э','я','и','ю'];
write('s=');
readln(s);
s:=s+' '; 
sl:='';
for i:=1 to length(s) do
    if not (s[i] in p) then sl:=sl+s[i] else
      if length(sl)>0 then
         begin
         t:=[];
         for j:=1 to length(sl) do
             if sl[j] in g then t:=t+[sl[j]];
         g:=g*t;
         sl:='';
         end;
for i:=ord('а') to ord('я') do
    if chr(i) in g then write(chr(i),' ');
readln;
end.

Program Num13;
uses crt;
const p=[' ',',',';',':','!','?','.'];
var s,s1: string;
    g,t,t1: set of char;
    n,i,j: byte;
    c:char;
begin
clrscr;
g:=['А','а','Е','е','Ё','ё','И','и','О','о','У','у','Ы','ы','Э','э','Ю','ю','Я','я'];
writeln('Введите строку из слов, написанных русскими буквами:');
readln(s);
n:=length(s);
i:=1;
t:=g;
while i<=n do
if not(s[i] in p)and((i=1)or(s[i-1] in p)) then
 begin
  s1:='';
  j:=i;
  while(j<=n)and not(s[j] in p) do
   begin
    s1:=s1+s[j];
    j:=j+1;
   end;
  t1:=[];
  for j:=1 to length(s1) do
  if s1[j] in g then t1:=t1+[s1[j]];
  t:=t*t1;
  i:=i+length(s1);
 end
else i:=i+1;
if t=[] then write('Нет гласных, входящих в каждое слово')
else
 begin
  writeln('Гласные, входящие в каждое слово:');
  for c:='А' to 'ё' do
  if c in t then write(c,' ');
 end;
readln;
end.