Задача 3 Урок 21

Задача 3 Урок 21:

Есть массив массив уникальных, ненулевых элементов (целые числа, 10 элементов):

[123, 45, 5638, 49, -78, 22, 5, 345, 68, 7]

После каких-то преобразований получился массив:

[123, 5638, 22, 5, 68, 7, 0, 0, 0, 0]

Задача: сформируйте ещё один массив из "потерянных" чисел (всех элементов 1-ого массива, которых нет во втором).

Примечание: давалась как простая разминочная задачка для собеседования в Яндекс.

const a: array [1..10] of integer = (123, 45, 5638, 49, -78, 22, 5, 345, 68, 7);
  b: array [1..10] of integer = (123, 5638, 22, 5, 68, 7, 0, 0, 0, 0);
  var i, j, k: integer;
  c: array of integer;
  z: boolean;
begin
  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
     begin
      k += 1;
      setlength(c, k);
      c[k - 1] := a[i];
     end;
   end;
  write('Удаленные элементы:  ');
  for i := low(c) to high(c) do write(c[i], ' ');
  readln();
end.