Объединить два массива так, чтобы в результирующем массиве содержались без повторений все элементы первого массива, которых нет во втором

var M,M1,M2:array[1..20] of integer;
  i,j:integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  randomize;
  for i:=1 to 20 do
  begin
  M1[i]:=random(10);
  writeln(i,'-',M1[i]);
  end;
  writeln;
  randomize;
  for i:=1 to 20 do
  begin
  M2[i]:=random(10);
  writeln(i,'-',M2[i]);
  end;
  readln;
  for i:=1 to 20 do
    for j:=1 to 20 do
end.

var M1,M2,MR:array[1..20] of integer;
    i,j,nr:integer;
    okd:boolean;
begin
  randomize;
  for i:=1 to 20 do
    begin
        M1[i]:=random(10);
        write(M1[i],' ');
    end;
  writeln;
  for i:=1 to 20 do
    begin
        M2[i]:=random(10);
        write(M2[i],' ');
    end;
  writeln;
  nr:=1;
  for i:=1 to 20 do
  begin
    okd:=true;
    for j:=1 to 20 do
        if M1[i]=M2[j] then
        begin
            okd:=false;
            break;
        end;
    if not okd then continue;
    for j:=1 to nr-1 do
        if MR[j]=M1[i] then
        begin
            okd:=false;
            break;
        end;
    if not okd then continue;
    MR[nr]:=M1[i];
    nr:=nr+1;
  end;
  for i:=1 to nr-1 do
    write(MR[i],' ');
  writeln;
  readln;
end.