Данные массивы А[1..n] и В[1..m]. Составить программу построения массива с, состоящего из элементов а, не входящих В — Pascal(Паскаль)

uses crt;
const n=10; m=10; k=10;
var a:array[1..n] of integer;
b:array[1..m] of integer;
c:array[1..k] of integer;
j,i,s:integer;
d:boolean;
begin
clrscr;
randomize;
writeln('A');
for i:=1 to n do
begin
a[i]:=random(10);
write(a[i]:4);
end;
writeln;
writeln('B');
for i:=1 to m do
begin
b[i]:=random(10);
write(b[i]:4);
end;
s:=0;
for i:=1 to n do
begin
 d:=true;
 for j:=1 to m do
  begin
  if a[i]=b[j] then d:=false;
  end;
  if d then begin s:=s+1; c[s]:=a[i];  end;
end;
writeln;
writeln('c');
for i:=1 to s do
write(c[i]:4);
readkey;
end.