Напечатать по одному разу все малые гласные буквы, что входят в текст - Turbo Pascal

Формулировка задачи:

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

Решение задачи: «Напечатать по одному разу все малые гласные буквы, что входят в текст»

Листинг программы

const
  glas = ['e','y','u','i','o','a'];
 
var
  c: char;
  m: set of char;
 
begin
  m := [];
  repeat
    read(c);
    if c in glas then
      m := m + [c];
  until c = '.';
  WriteLn;
  for c := 'a' to 'z' do
    if c in m then
      write(c);
  ReadLn;
  ReadLn;
end.

Объяснение кода листинга программы

Данный код на языке Turbo Pascal предназначен для печати всех малых гласных букв, входящих в текст. В начале кода объявляются две переменные: glas и m. Переменная glas представляет собой набор малых гласных букв, а переменная m является пустым множеством (set). Затем следует цикл repeat, который продолжается до тех пор, пока не будет достигнут символ точки ('.'). Внутри цикла считывается символ из стандартного ввода, и проверяется, входит ли этот символ в набор glas. Если символ входит в glas, то он добавляется в множество m. После завершения цикла repeat начинается цикл for, который перебирает все буквы от 'a' до 'z'. Если текущая буква присутствует в множестве m, то она выводится на экран. После завершения цикла for вызывается функция ReadLn для чтения символа новой строки, и затем вызывается функция ReadLn еще два раза для завершения программы. Таким образом, данный код печатает все малые гласные буквы, входящие в текст, по одной разу.