Даны два вектора целых чисел A и B.Вычислить вектор C, который содержит нечетные элементы вектора A, которых нет в векторе B — Pascal(Паскаль)

uses crt;
var a,b,c:array[1..100] of integer;
    i,j,n,p,k:integer;
begin
ClrScr;
Randomize;
Write('n=');
Readln(n);
writeln('Massiv A:');
for i:=1 to n do
 begin
  a[i]:=random(20)-10;
  Write(a[i]:4);
  b[i]:=random(20)-10;
 end;
Writeln;
writeln('Massiv B:');
for i:=1 to n do
 Write(b[i]:4);
Writeln;
k:=0;
for i:=1 to n do
if a[i] mod 2<>0 then
 begin
  p:=0;
  for j:=1 to n do
  if a[i]=b[j] then p:=p+1;
  if p=0 then
    begin
     k:=k+1;
     c[k]:=a[i];
    end;
 end;
writeln('Massiv C:');
for i:=1 to k do
 Write(c[i]:4);
Readln;
end.