Произвести операции над тремя массивами

const
  n = 40;
 
var
  x: array of integer;
  a, b, c, z, rin: array of integer;
  t, p, s, XA, XB, Xall, last: array of integer;
  m, i, j, h, cout, num, lm, ln: integer;
  f: boolean;
 
procedure mass(k: array of integer; y: array of integer);
var
  i, j: integer;
begin
  writeln;
  setlength(y, 21);
  m := 1;
  y[1] := k[random(40) + 1];
  for i := 1 to 20 do
  begin
    repeat
      f := false;
      h := k[random(40) + 1];
      for j := 1 to m do
        if y[j] = h then f := true;
    until f = false;
    y[i] := h;
    m := m + 1; 
  end;
end;
 
begin
  setlength(x, 41);
  setlength(rin, 41);
  setlength(z, 41);
  setlength(p, 999);
  setlength(a, 21);
  setlength(b, 21);
  setlength(c, 21);
  setlength(t, 999);
  setlength(Xall, 999);
  setlength(XB, 999);
  setlength(XA, 999);
  setlength(last, 999);
  randomize;
  write('Начальный массив массив Х:');
  m := 1;
  x[1] := random(n) + 1;
  for i := 1 to n do
  begin
    repeat
      f := false;
      h := random(n) + 1;
      for j := 1 to m do
        if x[j] = h then f := true;
    until f = false;
    x[i] := h;
    m := m + 1;
    write(x[i]:3);
  end;
  mass(x, a);
  writeln;
  write('A:');
  for i := 1 to 20 do
    write(a[i]:3);
  mass(x, b);
  writeln;
  
  write('B:');
  for i := 1 to 20 do
    write(b[i]:3);
  mass(x, c);
  writeln;
  write('C:');
  for i := 1 to 20 do
    write(c[i]:3); 
  
  //////************//////////x-a
  
  for lm := 1 to 40 do
  begin
    xa[lm] := x[lm];
    for ln := 1 to 20 do
    begin
      if xa[lm] = a[ln] then begin xa[lm] := 0; break; end;
    end;
  end;
  
  ////////***********///////// 
  
  //////********////////// x-b
  
  for lm := 1 to 40 do
  begin
    xb[lm] := x[lm];
    for ln := 1 to 20 do
    begin
      if xb[lm] = b[ln] then begin xb[lm] := 0; break; end;
    end;
  end;
  
  
  
  
end.