delphi задачка по теме множества

Составить программу, используя множественный тип.
Дан текст, состоящий из букв русского и латинского алфавитов и знаков препинания. По одному разу в алфавитном порядке вывести все строчные русские гласные буквы, встречающиеся в этом тексте.
Есть код, но сказали в нем еще одно множество надо создать и переписать с учетом этого
program project1;

{$mode objfpc}{$H+}

var
vowels, all: set of char;
s: string;
i: integer;
item: char;
begin
vowels := ['a', 'e', 'i', 'o', 'u'];
Readln(s);
for i := 1 to length(s) do
all := all + [s];
for item in vowels * all do
Write(item);
readln;

end.