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

Приведем текст программы:

Program Problem49_1;
Var   
    Rez:Set Of Char;
    A:String[6];
    S:String;
    i:Byte;
Begin
  WriteLn('Задайте текст:');
  ReadLn(S);
  A:='aeijou'; {Строка гласных латинских букв.}
  Rez:=[]; {Результирующее множество.}
  For i:=1 To Length(S) Do 
    If Pos(S[i],A)<>0 Then Rez:=Rez+[S[i]];
  WriteLn('Печать гласных букв:');
  If Rez=[] Then WriteLn('Таких элементов нет')
  Else
    For i:=1 To Length(A) Do
       If A[i] in Rez Then Write(A[i],' ');
  WriteLn;
End.

Текст этой программы можно взять здесь.