помогите дописать программу

[Nevis]

Напечатать текст, за которым следует точка. В алфавитном порядке напечатать все строчные русские гласные буквы (а. е, и, о, у, ы, э, ю, я), входящие в этот текст. прошу вашей помощи о великие умы программирования, задачу необходимо решить с помощью множеств!!!!
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.

[Serge_Bliznykov]

так Вы же всё уже сами написали!!
вывод не морочьте себе голову, вместо нескольких for...
сделайте один цикл:

for i := 1 to 255 do
  if Chr(i) in Letters1 Then Write(Chr(i):2);

замечание1. Лучше переменную Text назвать ПО ДРУГОМУ!
Ну, хотя бы MyText или CheckedText или InputString...

замечание2. я бы, как педант, добавил иницилизацию
множества перед основным циклом:
Letters1 := [];

p.s. в основном цикле есть один недочёт - если в тексте не будет точки - будет ошибка. в реальной задаче надо обязательно проверять, чтобы i не превысило размеры входной строки (i<=Length(..))