Вывести на экран те буквы, которые не встречаются ни в одном слове - Pascal ABC

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

Построить два множества: одно из букв данного слова Х и второе из букв данного слова У. Вывести на экран те буквы, которые не встречаются ни в одном слове.

Решение задачи: «Вывести на экран те буквы, которые не встречаются ни в одном слове»

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

Uses crt;
Var x,y:string; mx,my:set of char; i:integer; s:char;
Begin
 writeln('Vvedite slovo X');
 readln(x);
 writeln('Vvedite slovo Y');
 readln(y);
 mx:=[];my:=[];
 for i:=1 to length(x) do mx:=mx+[x[i]];
 for i:=1 to length(y) do my:=my+[y[i]];
 writeln('Ne vstrechayutsa ne v X ne v Y: ');
 for s:='a' to 'z' do
  if not(s in mx+my) then write(s);
End.

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

В первой строке кода используется библиотека crt, которая является стандартной для языка Pascal ABC и используется для ввода-вывода данных.
Далее объявляются переменные x, y, mx и my типа string, которые будут использоваться для хранения введенных пользователем слов.
Затем объявляются два пустых множества mx и my типа set of char, которые будут использоваться для хранения уникальных символов из слов x и y соответственно.
После этого идет цикл for, который проходит по каждому символу в словах x и y.
Внутри цикла символы добавляются в множество mx и my с помощью оператора +.
После завершения циклов выводится сообщение о том, какие символы не встречаются в обоих словах.
Затем идет еще один цикл for, который перебирает все символы от 'a' до 'z'.
Внутри цикла проверяется, содержится ли символ в множествах mx и my с помощью оператора in.
Если символ не содержится в обоих множествах, то он выводится на экран.
Код заканчивается точкой с запятой.