Помогите решить задачу с множествами

[Марина*]

Дан текст, за которым следует точка. В алфавитном порядке напечатать все строчные русские гласные буквы( а,е,и,о,у,ы,э,ю,я), входящие в этот текст

[Hacker19_90]

Можно конечно просто со строками сделать!!
Но если нужны множества, будут множества!!!

.....
var
    Text: string;
    i: byte;
    Letters1: set of char;
....
begin
     .....
     i := 1;
     While (Text[i] <> '.') do
     begin
         Letters1 := Letters1 + [Text[i]];
         Inc(i);
     end;
     Letters1 := Letters1 * ['а', 'е', 'и', 'о', 'у', 'ы', 'э', 'ю', 'я']; 
     for i := 160 to 175 do
         if Chr(i) in Letters1 Then Write(Chr(i):2);
     for i := 224 to 239 do
         if Chr(i) in Letters1 Then Write(Chr(i):2);
......
end.

[__STDC__]

замечание: имхо, лучше переменную i объявить типа char и цикл делать

for i:='а' to 'я' do...

для удобочитаемости кода лучше

[Hacker19_90]

спаисбо за исправление +1 бал!!!!
имхо лучше так!!! Согласен!!!