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

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

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

type
  massiv = array[1..10] of integer;
var
  perv, vtor: massiv;
  i, j: integer;
  q: boolean;
begin
  randomize();
  for i:=1 to 10 do
  begin
    perv[i] := random(12);
    write (perv[i], ' ');
  end;
    writeln;
    for i:=1 to 10 do
  begin
    vtor[i] := random(15);
    write (vtor[i], ' ');
  end;
  writeln;
  writeln ('Числа первого массива, которые не содержатся во втором: ');
  for i:=low(perv) to high(perv) do   // внешний цикл, обходим первый массив
  begin
    q:= false;
    for j:=low(vtor) to high(vtor) do // вложенный цикл, обходим второй массив
      if perv[i] = vtor[j] then       // если встретмлось равное число
      begin
        q:=true;                      // переключаем переключатель
        break;                        // выходим из вложенного цикла
      end;
    if q = false then                 // если перекл-ль не переключился (не встретилось число)
      write (perv[i], ' ');           // выводим на экран элемент первого массива
  end;
  readln();
end.

Вывод в консоли:

5 3 4 0 4 9 8 6 7 1 
7 10 4 11 14 14 6 14 11 10 
Числа первого массива, которые не содержатся во втором: 
5 3 0 9 8 1