[WWWorm1502]

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

Код:

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[i]];
    for item in vowels * all do
        Write(item);
    readln;

end.