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

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

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

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

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

uses crt;
type
  mnogestvo = set of char;
var
  mn1, mn2: mnogestvo;
  V, L: string;
  mn: set of char;
 
procedure vmnoj(sl: string; var mn: Mnogestvo);
var
  i: integer;
begin
  mn := [];
  for i := 1 to length(sl) do
    mn := mn + [sl[i]];
end;
 
procedure Vivod(mn: Mnogestvo);
var
  ch: char;
begin
  for ch := 'a' to 'z' do
    if (ch in mn1) and (ch in mn2) 
      then write(ch, ' ');
end;
 
begin
  clrscr;
  write('введите слово X: ');
  readln(V);
  write('введите слово Y: ');
  readln(L);
  vmnoj(V, mn1);
  vmnoj(L, mn2);
  write('буквы, которые  встречаются хотя бы в одном множестве : ');
  ivod(mn);
end.

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

В начале программы подключается модуль CRT, который позволяет использовать функции для работы с консолью.
Далее определяется тип данных множество букв (Mnogestvo), который представляет собой набор символов (букв).
Затем объявляются переменные mn1, mn2, V, L и mn, которые будут использоваться в программе.
Создаются две процедуры: vmnoj и ivod.
В процедуре vmnoj происходит создание множества букв на основе введенного слова.
В процедуре ivod происходит вывод на экран букв, которые встречаются хотя бы в одном множестве.
В основной части программы сначала запрашиваются два слова у пользователя.
Затем вызывается процедура vmnoj для каждого из слов, чтобы создать множество букв.
После этого вызывается процедура ivod для вывода на экран общих букв.
Наконец, программа завершается, и пользовательский интерфейс закрывается.