Множества. Поиск гласных букв.

[00884]

Дано предложение, состоящее из латинских букв. Вывести все гласные буквы, которые не входят более чем в одно слово.

[Kovax]

Вот отрезок удаления гласных из множества:

program pro8;
var
 s: string;
 glas: set of char;
 i: integer;
begin
 glas:= ['a','o','i','u','y','e'];
 writeln('Vvedite stroku: ');
 readln(s);
 i:= 1;
 repeat
  begin
   if s[i] in glas then
    Delete(s,i,1)
   else inc(i);
  end;
 until i = Length(s);
 writeln('Ispravlennui stroku: ', s);
 readln;
end.