Найти объединение образованных множеств - Turbo Pascal

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

Ввести последовательность из букв латинского алфавита.Сформировать два множества:множество S1 с маленьких гласных букв,множество S2 с больших согласных букв.Найти объединение образованных множеств помогите пожалуйста,я новичок

Решение задачи: «Найти объединение образованных множеств»

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

const
  n = 10;
  m = ['A'..'Z'];
  g1 = ['E', 'Y', 'U', 'I', 'O', 'A'];
  g = ['e', 'y', 'u', 'i', 'o', 'a'];
  s = m - g1;
 
var
  ob, gl, sg: Set of Char;
  c: Char;
  i: Byte;
 
begin
  for i := 1 to n do
  begin
    Read(c);
    if c in g Then
      Include(gl, c);
    if c in s Then
      Include(sg, c);
  end;
  Writeln('Множество гласных:');
  for i := 65 to 122 do
    if Chr(i) in gl Then
      Write(Chr(i), ' ');
  Writeln;
  Writeln('Множество согласных:');
  for i := 65 to 122 do
    if (Chr(i)) in sg Then
      Write(Chr(i), ' ');
  writeln;    
  ob := gl + sg;          
  Writeln('Объединение множеств:');
  for i := 0 to 255 do
    if Chr(i) in ob Then
      Write(Chr(i), ' ');
  
  Readln;
end.

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

В данном коде используется язык программирования Turbo Pascal. Он предназначен для работы с множествами символов. Переменные:

n - количество символов для обработки (в данном случае 10);
m - множество символов от A до Z;
g1 - множество символов, представляющее гласные (E, Y, U, I, O, A);
g - множество символов, представляющее гласные (e, y, u, i, o, a);
s - множество символов, представляющее согласные (все символы, кроме гласных);
ob, gl, sg - множества, в которые будут добавляться символы;
c - символ, который читается с диска;
i - байт, который определяет, является ли символ гласным или согласным;
Writeln - функция, которая выводит текст на экран;
Readln - функция, которая считывает ввод пользователя с клавиатуры. Код выполняет следующие действия:
1. Чтение символа с диска.
2. Проверка, является ли этот символ гласным или согласным.
3. Если символ является гласным, добавить его в множество g1.
4. Если символ является согласным, добавить его в множество s.
5. Вывести множество g1.
6. Вывести множество s.
7. Объединить множества g1 и s в множество ob.
8. Вывести множество ob.
9. Выполнить чтение следующего символа с диска.
10. Повторить шаги 1-9 до тех пор, пока не будет прочитано n символов.
11. Вывести сообщение о завершении работы программы. Таким образом, данный код позволяет найти объединение образованных множеств символов.