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

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

Дано непустое последовательность из строчных русских букв, между соседними словами запятая, за последним словом точка. Напечатать в алфавитном порядке все согласные буквы, которые не входят ни в одно слово. Pascal, Множества.

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

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

uses crt;
const
     a=['А'..'Я','а'..'я'];
     g=['У','Ё','Е','Ы','А','О','Э','Я','И','Ю',
        'у','ё','е','ы','а','о','э','я','и','ю'];
     s=a-g-['ъ']-['ь'];
var str: string;
    i: byte;
    m: set of char;
    
begin
write('s='); readln(str);
m:=s;
for i:=1 to length(str) do
    if str[i] in s then m:=m-[str[i]];
for i:=222 to 255 do
    if chr(i) in m then write(chr(i),' ');
readln;
end.

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

Этот код написан на Turbo Pascal и выполняет следующие действия:

Объявляет переменные a, g и s, которые представляют собой массивы символов (строки). Переменная a содержит все буквы от 'А' до 'Я', а переменная g содержит все буквы от 'У' до 'Я'. Переменная s представляет собой множество символов, которые не входят ни в одно слово.
Вычисляет разность между множеством s и множеством g. Это делается для того, чтобы оставить только те символы, которые не входят ни в одно слово.
Создает переменную str типа string (строка) и инициализирует ее значением s. Это позволит нам читать и записывать строки.
Запускает цикл for, который будет выполняться столько раз, сколько символов в строке str.
Внутри цикла проверяется, является ли текущий символ в строке str членом множества s. Если это так, то он удаляется из строки str.
После завершения внутреннего цикла запускается внешний цикл for, который перебирает все символы от 222 до 255.
Внутри внешнего цикла проверяется, является ли текущий символ в строке str членом множества s. Если это так, то он выводится на экран.
По завершении обоих циклов выводится символ новой строки. Таким образом, данный код выводит на экран все согласные буквы, которые не входят ни в одно слово, в алфавитном порядке.