Найти такие значения элементов массивов, которые имеются в х, но отсутствуют в y - PascalABC.NET

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

Даны два линейных массива x и y по N целых чисел в каждом где N=10. Найти такие значения элементов, которые имеются в х но отсутствуют в y.

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

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

program pr;
const 
n=10;
var
x,y:array [1..n]of integer;
i,j:integer;
flag:boolean;
begin
for i:=1 to n do
begin
x[i]:=random(21);
write(x[i]:3);
end;
writeln;
for j:=1 to n do
begin
y[j]:=random(21);
write(y[j]:3);
end;
writeln;
for i:=1 to n do
begin
 flag:=false;  
   for j:=1 to n do
      if  (x[i]=y[j]) and (i<>j) then
         flag:=true;
   if flag=false then
   write(x[i]:3);
    end;
end.

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

В этом коде выполняется сравнение двух массивов и выводится на экран значение тех элементов, которые есть в первом массиве, но отсутствуют во втором. Список действий:

Создаются два массива x и y, каждый из которых содержит случайные значения от 0 до 20.
С помощью циклов for выводятся значения каждого элемента массива x и y.
Затем с помощью вложенного цикла проверяется, есть ли элемент в массиве y, который отсутствует в массиве x. Если такой элемент найден, то для него устанавливается флаг в значение true.
После проверки всех элементов массива x, для каждого элемента проверяется значение флага. Если элемент не был найден в массиве y, то его значение выводится на экран.