Задача 3 Урок 23 Потерянные числа из массива

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

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

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

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

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

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

program array_comparison;
type
    arrNum10 = array[1..10] of integer;

const ar1 : arrNum10 = (123,45,5638,49,-78,22,5,345,68,7);
const ar2 : arrNum10 = (123,5638,22,5,68,7,0,0,0,0);
const new_ar : arrNum10 = (0,0,0,0,0,0,0,0,0,0);
var i,j,u,b :integer;

begin
  u:=0;
  for i:=1 to length(ar1) do
  begin
      b:=0;
      for j:=1 to length(ar2) do
      begin
          if(ar1[i] = ar2[j]) then
          begin
              b:=1;
              break
          end;
      end;
      if(b=0) then
      begin
          new_ar[u]:=ar1[i];
          u+=1;
      end;
  end;
  // вывод нового массива
  for j:=1 to length(new_ar) do
      write(new_ar[j], ' ');
end.