формирование массива Опции

[Anti]

Помогите пожалуйста решить задачу!
Условие:
Дано 2 целочисельных массива А[N], B[N], среди которых нет элементов, которые повторяются. Сформировать массив, который содержит элементы, которые принадлежат массивам А и В одновременно (пересечение массивов)

[Адель]

const N=6;
var
 k,i,j:integer;
 a,b: array  [0..N-1] of integer;
 c:array [0..2*N-1] of integer; //максимальный набор
begin
writeln('elementi A');
for i:=0 to N-1 do
readln(a[i]);
writeln('elementi B');
for i:=0 to N-1 do
readln(b[i]);
k:=0;
for i:=0 to N-1 do
 for j:=0 to N-1 do
  if a[i]=b[j] then begin c[k]:=a[i];
  inc(k);
  end;
for i:=0 to k-1 do
writeln(c[i]);
readln;
end.

ps когда срочно-есть "задачи на заказ"