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

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

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

var i, j: integer;
    z: boolean;
    a, b: array [1..10] of integer;
begin
   randomize();
   for i := 1 to 10 do a[i] := random(21) - 10;
   write('Массив 1: ');
   for i := 1 to 10 do write(a[i], ' ');
   writeln();
   for i := 1 to 10 do b[i] := random(21) - 10;
   write('Массив 2: ');
   for i := 1 to 10 do write(b[i], ' ');
   writeln();
   for i := 1 to 10 do
    begin
     z := true;
     for j := 1 to 10 do
      if a[i] = b[j] then z := false;
     if z then write(a[i], ' ')
    end;
   readln();
end.