Сравнение двух массивов - двумерного и одномерного - Pascal ABC

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

Как сравнить каждое значение двумерного массива, со всеми значениями одномерного массива, на равенство? Любой пример пожалуйста. Например: A[1,5,6,7,2] B[4,5,6,2,3,5,6,8] [4,5,8,3,12,34,5] [2,4,5,7,13,45,6] [0,4,67,413,456] Чтобы каждое значение массива В, было сравнено с каждым значением массива А. Например if 1-ый элемент А-(a[1]) равен какому-то из B, then inc(j); writeln(j); , и чтобы каждый элемент А был сравнён так. Как правильно условие сравнения писать?

Решение задачи: «Сравнение двух массивов - двумерного и одномерного»

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

for i:=1 to m do
for j:=1 to n do
 begin
   f:=0;
   k:=1;
   while(k<=p)and(f=0) do
   if b[i,j]=a[k] then f:=1
   else inc(k);
   if k=1 then writen('Элемент ',b[i,j],' есть в массиве А');
 end;

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

В цикле for i:=1 to m do происходит итерация по элементам массива b от первого до m-го.
В цикле for j:=1 to n do происходит итерация по элементам массива a от первого до n-го.
В блоке begin...end выполняется проверка на равенство элементов массивов b и a.
Переменная f инициализируется значением 0.
Переменная k инициализируется значением 1.
Запускается цикл while(k<=p)and(f=0) do. Цикл продолжается, пока значение переменной k меньше или равно значению переменной p и значение переменной f равно 0.
Внутри цикла while выполняется проверка на равенство элементов массивов b и a.
Если b[i,j] равно a[k], то значение переменной f устанавливается равным 1.
Если k меньше или равно 1, то выполняется запись в файл 'Элемент ' с указанием элемента b[i,j].
После завершения внутреннего цикла while выполняется выход из блока begin...end.
Цикл for i:=1 to m do завершается.
Цикл for j:=1 to n do завершается.
Выполняется выход из цикла for i:=1 to m do.
Выполняется выход из цикла for j:=1 to n do.
Выполняется выход из блока begin...end.
Завершается выполнение программы.