Сформировать новый массив, содержащий элементы, не входящие в оба массива

const Nm = 7;
var
  i, j, k, min, n: integer;
  a: array[1..Nm] of integer;
  b: array[1..Nm] of integer;
  c: array[1..Nm*2] of integer;
  bb:boolean;
begin
  j := 1;n:=1;
  a[1] := 1; a[2] := 1; a[3] := 1; a[4] := 1;
  a[5] := 1; a[6] := 1; a[7] := 1;
 
  b[1] := 0; b[2] := 1; b[3] := 1; b[4] := 1;
  b[5] := 1; b[6] := 1; b[7] := 0;
  for i:=1 to Nm do begin
   bb:=true;
   for j:=1 to Nm do begin
    if a[i]=b[j] then begin
     bb:=false;break;
    end;
   end;
   if bb then begin
    c[n]:=a[i];inc(n);
   end;
  end;
  writeln('massive 1 =');
  for i:=1 to NM do
  writeln (a[i]);
  writeln('massive 2 =');
  for j:=1 to NM do
  writeln (b[j]);
  writeln('massive 3 =');
  for i:=1 to n-1 do
     Write(c[i]:3);
  WriteLn;
  Readln;
 
end.