Пусть заданы множество А и множество В целых чисел, вывести напечатать все элементы множества В которые не входят в множество А.

unit mymodule;
interface
type massiv = array[1..255] of byte;
procedure poisk(a,b:massiv; var n:byte; var c:massiv);
implementation
procedure poisk(a,b:massiv; var n:byte; var c:massiv);
var i,j,k,l:byte;
begin
  l:=0;
  for i:=1 to n do
  begin
    k:=0;
    for j:=1 to n do
      if b[i]=a[j] then
      begin
        k:=1;
        break;
      end;
    if k=0 then
    begin
      l:=l+1;
      c[l]:=b[i];
    end;
  end;
  n:=l;
end;
end.

uses crt, mymodule;
type massiv = array[1..255] of byte;
var n:byte;
    a,b,c:massiv;
 
procedure vvod;
var i:byte;
begin
  write('n=');
  readln(n);
  for i:=1 to n do
  begin
    a[i]:=random(10);
    b[i]:=random(10);
  end;
end;
 
procedure vivod(d:massiv;n1:byte);
var i:byte;
begin
  for i:=1 to n1 do
  begin
    write(d[i]:4)
  end;
  writeln;
  writeln;
end;
 
begin
  clrscr;
  randomize;
  vvod;
  write('  a =');
  vivod(a,n);
  write('  b =');
  vivod(b,n);
  poisk(a,b,n,c);
  write('  c =');
  vivod(c,n);
  readln;
end.