Найти элементы массива К, не имеющие себе равных в массиве L - Turbo Pascal

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

(Векторы) Даны два целочисленных массива K(m) и L(n). Найти элементы массива К, не имеющие себе равных в массиве L. Заранее спасибо!!!

Решение задачи: «Найти элементы массива К, не имеющие себе равных в массиве L»

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

uses crt;
const nmax=100;
type mas=array[1..nmax] of integer;
procedure massiv(var a:mas;var n:byte;c:char);
var i:byte;
begin
repeat
write('Размер массива ',c,' до ',nmax,' =');
readln(n);
until n in [1..nmax];
writeln('Массив ',c);
for i:=1 to n do
 begin
  a[i]:=random(20);
  write(a[i]:4);
 end;
writeln;
end;
var K,L:mas;
    m,n,i,j,q,r:byte;
begin
clrscr;
randomize;
massiv(K,m,'K');
massiv(L,n,'L');
writeln('Элементы массива K, которых нет в массиве L');
q:=0;
for i:=1 to m do
 begin
  j:=1;
  r:=0;
  while(j<=n)and(r=0) do
  if L[j]=K[i] then r:=1
  else inc(j);
  if r=0 then
   begin
    write(K[i]:4);
    q:=1
   end
 end;
if q=0  then write('Таких элементов нет');
readln
end.

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

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

Создает два массива - K и L.
Заполняет случайными числами от 0 до 20 оба массива.
Выводит размер каждого массива.
Выводит содержимое обоих массивов.
Находит элементы массива K, которые отсутствуют в массиве L.
Выводит найденные элементы.
Если найденных элементов нет, выводит сообщение об этом. Код использует вложенные циклы для выполнения этих действий. Внешний цикл используется для вывода размера и содержимого массивов, а внутренний цикл используется для поиска отсутствующих элементов в массиве L.