Паскаль, разность множеств. Подскажите, как выглядит код, где "выводятся буквы первого слова, которых нет во втором"

Предыдущий
вопрос Следующий
вопрос

Пример кода на Паскале для реализации вычисления разности множеств (вывод букв первого слова, которых нет во втором слове):

program DifferenceOfSets;
var
word1, word2: string;
i, j: integer;
exists: boolean;
begin
writeln('Enter the first word: ');
readln(word1);
writeln('Enter the second word: ');
readln(word2);
for i := 1 to length(word1) do
begin
exists := false;
for j := 1 to length(word2) do
begin
if word1[i] = word2[j] then
begin
exists := true;
break;
end;
end;
if not exists then
begin
writeln('Letter "', word1[i], '" is in the first word, but not in the second word.');
end;
end;
end.

Этот код принимает два слова от пользователя и затем выводит буквы первого слова, которые отсутствуют во втором слове.