Удалить из второго массива элементы которые есть в первом

program dimabubyakin;
uses crt;
var a:array[1..100] of integer;
    b:array[1..100] of integer;
    q,i,j,n,m:integer;
BEGIN
  randomize;
  Write('Enter number array1 = ');readln(n);
  Write('Enter number array2 = ');readln(m);
  Write('Array_1 = '); 
  for i:=1 to n do
    begin 
      a[i]:=random(10);
      write(a[i],' ');
    end;
  Writeln;
  Write('Array_2 = ');
  for j:=1 to m do
    begin
      b[j]:=random(10);
      write(b[j],' ');
     end;
  Writeln;
  Write('Answer = ');
  for i:=1 to n do
    begin
    q:=0;
      for j:=1 to m do
        begin
          if (a[i]<>b[j]) then inc(q);
        end;
     if (q=m) then Write(a[i],' ');
    end;
   for i:=1 to m do
    begin
    q:=0;
      for j:=1 to n do
        begin
          if (b[i]<>a[j]) then inc(q);
        end;
     if (q=n) then Write(b[i],' ');
    end; 
wRITELN;    
END.

program q4;
uses crt;
const 
     w=50;
type 
     ar=array [1..100] of integer;
var
     i,j,q,mx,mn,n,e:integer;
     a,b          :ar;
 
begin
randomize;
write('Введите кол-во элементов массива от 1 до ',w,' : ');
repeat
     readln(n);
     if (n>w) or (n<=0)  
     then
          write('Ошибка, введите число из диапазона 1..',w,' : ');
until (n<=w) and (n>0);
writeln('Случайный массив из ',n,' элементов');
// **************************************************
for i:=1 to n do
     begin
     if i mod 10=0 then writeln; 
     a[i]:=random(n)+1;
     write(a[i]:4);
     end;
// **************************************************     
mx:=a[1];
mn:=a[1];
for i:=2 to n do
     begin
          if a[i] > mx  
               then
               mx:=a[i];  
          if a[i] < mn 
               then
               mn:=a[i];
     end;
// ************************************************** 
writeln;
 
for e:=mn to mx do
     begin
     inc(q);
     b[q]:=e;
     end;
     
for i:=1 to q do
     begin
     for j:=1 to n do
     if b[i]=a[j] then
     end;
// и вот сюда нам нужно вставить код)
writeln;     
end.