Из массива A удалить те цепочки нечетных элементов, в которых нет ни одного элемента из массива B

uses crt;
var
a,b,c:array[1..10]of integer;
i,k,j:integer;
flag:boolean;
begin
flag:=false;
for i:=1 to 10 do begin
a[i]:=random(10);
b[i]:=random(100);end;
for i:=1 to 10 do begin
for j:=1 to 10 do begin
if a[i]=b[j] then flag:=true else flag:=false;
end;
if (a[i]mod 2<>0)and(not flag) then
begin
inc(k);
c[k]:=a[i];
end;
end;
for i:=1 to k do
write(c[i],' ');
end.

var A: array[1..n] of integer;
var B: array[1..m] of integer;
 
 function ProvB(el: integer; B: array...): boolean; // проверка вхождения числа el в массив B 
 begin  ProvB := false ;
          for j:=1 to m do 
               if  B[j] = el then begin ProvB := true; 
                                             break;
                                      end; 
  // если B предварительно отсортировать - можно оптимизировать поиск. 
 end; 
 
 procedure DelCepi(NachCepi, KonCepi: integer; var A: array...; var KolA: integer); // удалить цепочку из массива
 var j:integer;
 begin
       for J := KonCepi+1 to KolA do 
               A[j-(KonCepi-NachCepi)] := A[j];
       KolA := KolA - (KonCepi - NachCepi+1); // кол-во эл-тов в А уменьшилось
 end;
... 
  EstB := false; // признак того, что текущая цепочка пересекается с элементами B
  kolA :=  n;     // кол-во эл-тов в А - сначала исходное, потом после удаления цепочек м.б. меньше
  NachCepi := 0; KonCepi := 0; // начало и конец текущей цепочки
  i := 1;
  while i <= kolA do
  begin 
          if A[i] mod 2 = 1 then // начинаем или продолжаем цепочку нечетн. чисел
          begin 
               if NachCepi = 0 then NachCepi := i; 
               KonCepi := i;
               if not EstB then EstB := ProvB(A[i], B); // проверяем, есть ли в B хоть 1 эл-т. если хоть один из предыдущих эл-тов цепочки уже есть - то нечего и проверять дальше. 
          end 
          else  // четное - прекращаем цепочку, если она была и удовлетв условию - удаляем
          begin
               if (NachCepi >0) and not EstB then // была цепочка и нет пересечений с В
               begin
                  DelCepi(NachCepi, KonCepi, A, KolA);
                  i := i - (KonCepi - NachCepi+1);
               end;
               NachCepi := 0; KonCepi := 0; EstB := false;
          end ; 
          i := i+1;
  end;
 
  for i:= 1 to KolA do write(A[i], ' ');