Напечатать в алфавитном порядке все гласные буквы - Pascal (80745)

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

Дана непустая последовательность из строчных русских букв, за последним символом-точка. Напечатать в алфавитном порядке все гласные буквы. Примечание: гласные буквы - а,е,и,о,у,ы,э,ю,я. ОЧЕНЬ НУЖНА ВАША ПОМОЩЬ

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

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

const glasn = ['а','е','и','о','у','ы','э','ю','я'];
var
  s:string;
  m:set of char;
  c:char;
  i:integer;
begin
  readln(s);
  m:=[];
  for i:=1 to length(s) do
    if s[i] in glasn  then include(m,s[i]);
 
  for c:='а' to 'я' do
    if c in m then Write(c);
 
end.

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

Константа 'glasn' содержит массив гласных букв русского алфавита: ['а','е','и','о','у','ы','э','ю','я'].
Переменная 's' типа string используется для ввода строки с клавиатуры.
Множество 'm' определено для хранения уникальных гласных букв из введенной строки.
Переменная 'c' типа char используется для перебора букв в цикле.
Переменная 'i' используется в цикле для итераций по символам в строке.
Читается ввод с клавиатуры и сохраняется в переменную 's'.
Создается пустое множество 'm'.
В цикле происходит проверка каждого символа во введенной строке, и если символ является гласной, то он добавляется в множество 'm'.
После того, как все гласные буквы добавлены в множество 'm', происходит проверка каждой буквы от 'а' до 'я', и если буква присутствует в множестве 'm', она выводится на экран.