Сформировать одномерный массив С, содержащий элементы массива А,присутствующие в массиве В четное число раз.

var
i,j,kol,k,n,m,l:integer;
A,B,C : array [1..20] of integer;
flag:boolean;
 
begin
k:=1;
writeln('razmernost massiva A');
readln (n);
      for i:=1 to n do
              begin
                  write('A[',i,']=');
                  readln (A[i]);
      end;
for i:=1 to n do
        begin
           write('B[',i,']=');
           readln (B[i]);
end;
                                     Writeln('massiv A');
         For i:=1 to n do
              write (A [i],' ');
              writeln;
                                     Writeln('massiv B');
        For i:=1 to n do
              write (B [i],' ');
              writeln;
For i:=1 to n do begin
    kol:=0;
    For j:=1 to n do begin
        If A[i]=B[j] then
        Kol:=Kol+1;
       If Kol mod 2 =0 then
       If k=0 then begin
       k:=k+1;
       C[k]:=A[i];
                     
                     end
       
       else begin
       Flag:=True;
       m:=1;
             end;
       
       While (m<=k) and Flag do begin
       If A[i]=C[m] then Flag:=False
       else 
       m:=m+1;
       If Flag then
       k:=k+1;
       C[k]:=A[i]
                                end;
                end;
                {pause;}
Writeln('polu4ivshiysya massiv C');
For l:=1 to 20 do
    write (C [l],' ');
    writeln;
    pause;
    end;
end.

uses crt;
const nmax=20;
var a,b,c:array[1..nmax] of integer;
    n,m,k,i,j,p,q,r:byte;
    x:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива A до ',nmax,' n=');
readln(n);
until n in [1..nmax];
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
repeat
write('Размер массива B до ',nmax,' m=');
readln(m);
until m in [1..nmax];
for i:=1 to m do
 begin
  write('b[',i,']=');
  readln(b[i]);
 end;
clrscr;
writeln('Массив A:');
for i:=1 to n do
write(a[i],' ');
writeln;
writeln;
writeln('Массив B:');
for i:=1 to m do
write(b[i],' ');
writeln;
writeln;
k:=0;
for i:=1 to n do
 begin
  p:=0;
  for j:=1 to m do
  if b[j]=a[i] then p:=p+1;
  if (p>0)and(p mod 2=0) then{если четное число раз}
   begin
    x:=a[i];{запомним}
    k:=k+1;{посчитаем}
    c[k]:=a[i];{запишем в массив}
    for q:=m downto 1 do{пройдем по массиву В с конца}
    if b[q]=x then{все эти элементы}
     begin
      for r:=q to m-1 do{сдвигом влево}
      b[r]:=b[r+1];{на 1 позицию удалим}
      m:=m-1;{уменьшим размер массива В}
     end
    end;
 end;
if k=0 then write('Заданных элементов нет!')
else
 begin
  writeln('Массив С:');
  for i:=1 to k do
  write(c[i],' ');
 end;
readln
end.