Определить, каких гласных латинских букв нет ни в первой, ни во второй строках - Turbo Pascal

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

Вводятся 2 строки. Определить, каких гласных латинских букв нет ни в первой, ни во второй строках.

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

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

{Вводятся 2 строки. Определить, каких гласных латинских букв нет ни в
первой, ни во второй строках.}
 
uses
  crt;
var
  s1,s2:string;
  m,gl,m1,m2:set of char;
  i:byte;
begin
  clrscr;
//  gl:=['E','e','U','u','I','i','O','o','A','a'];
  gl:=['E','U','I','O','A'];
  writeln('Введите первую строку:');
  readln(s1);
  writeln('Введите вторую строку:');
  readln(s2);
  m1:=[];
  m2:=[];
  m:=[];
  for i:=1 to length(s1) do
    begin
      s1[i]:=UpCase(s1[i]);
      if (s1[i] in gl) then
        m1:=m1+[s1[i]];
    end;
  for i:=1 to length(s2) do
    begin
      s2[i]:=UpCase(s2[i]);
      if (s2[i] in gl) then
        m2:=m2+[s2[i]];
    end;
  m:=m1+m2;
  m:=gl-m;
  if m=[] then
    writeln('В строках нет одинаковых символов')
  else
    begin
      writeln('Множество гласных латинских букв, не встречающихся в обеих строках');
      for i:=1 to 255 do
        if chr(i) in m then write(chr(i));
    end;
  readln;
end.

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

Данный код написан на языке Turbo Pascal и выполняет следующую задачу: определяет, каких гласных латинских букв нет ни в первой, ни во второй строках. В коде используются следующие переменные:

s1 и s2 - строки, в которые пользователь вводит данные.
m, gl, m1, m2 - множества символов.
i - байт, используемый для обработки символов. Сначала происходит инициализация переменных:
gl - множество гласных латинских букв, которое может быть изменено в процессе выполнения программы.
m1 и m2 - пустые множества, которые будут использоваться для накопления символов.
m - пустое множество, которое будет использоваться для накопления всех символов из строк s1 и s2. Затем происходит чтение двух строк от пользователя. Далее происходит обработка каждой буквы в строках s1 и s2. Для каждой буквы выполняется следующее:
Буква преобразуется в верхний регистр с помощью функции UpCase.
Проверяется, содержится ли буква в множестве gl. Если да, то она добавляется в множество m1.
После обработки первой строки, все символы из множества m1 добавляются в множество m.
Аналогично обрабатывается вторая строка, но символы добавляются в множество m2.
В конце все символы из множества m объединяются в одну строку и выводятся на экран. Если после обработки всех символов множество m оказалось пустым, то выводится сообщение о том, что в строках нет одинаковых символов. В противном случае выводится сообщение о том, какие гласные латинские буквы отсутствуют в обеих строках. Для вывода символов, которые отсутствуют в обеих строках, используется цикл for, который перебирает все символы от 1 до 255 и проверяет, содержится ли он в множестве m. Если да, то символ выводится на экран.