Задача 22 Урок 15

Задача 22 Урок 15:

У вас есть два массива целых чисел по 10 элементов в каждом.
Выведите на экран все числа из первого массива, которые не содержаться во втором.

program u15z22;
type
  massiv = array[1..10] of integer;
var
  m, n: massiv;
  i, j ,q: integer;
begin
  randomize();
  for i:=low(m) to high(m) do
  begin
    m[i] := random (50)-10;
    write (m[i], ' ');
  end;
  writeln();
  for i:=low(n) to high(n) do
  begin
    n[i] := random (50)-10;
    write (n[i], ' ');
  end;
  writeln ();
  for i:=low(m) to high(m) do
  begin
    for j:=low(n) to high(n) do
      if m[i]=n[j] then
      begin
        q:=0;
        break;
      end
      else
        q:=1;
    if q=1 then
      write (m[i], ' ');
  end;
  readln();