Вывести все числа из массива №2, которые не в ходят в состав массива №1 - Turbo Pascal

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

даны 2 массива, среди которых нет повторяющихся чисел. вывести все числа из массива №2, которые не в ходят в состав массива №1. не могу найти ошибку

Решение задачи: «Вывести все числа из массива №2, которые не в ходят в состав массива №1»

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

for j:=1 to n do
  begin
    k := 0; {счетчик несовпадений}
    {сравниваем с числами массива a,
    если не равно наращиваем k, иначе переходим к следующей итерации}
    for i:=1 to 5 do if (m[j])<>(a[i]) then inc(k);
    {если не совпало со всеми 5 цифрами, то k = 5, тогда выводим m[j]}
    if k = 5 then write(m[j]:4)
  end

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

В цикле for j:=1 до n do начинается обработка элементов массива №2.
Переменная k инициализируется значением 0, которое будет использоваться для подсчета несовпадений.
В блоке if (m[j])<>a[i] происходит сравнение текущего элемента массива №2 (m[j]) с каждым из пяти элементов массива №1 (a[i]).
Если элементы не совпадают, значение переменной k увеличивается на единицу с помощью функции inc(k).
Если после выполнения всех пяти итераций значение переменной k не равно 5, это означает, что элемент не совпал ни с одним из пяти элементов массива №1, и его значение выводится на экран с помощью функции write(m[j]:4).
Если значение переменной k равно 5, это означает, что элемент совпал со всеми пятью элементами массива №1, и его значение также выводится на экран.