Массивы, Создание массива из 2-х Опции

[Катя]

Помогите решить задачу по массивам!
Даны два одномерных массива чисел А и В. Сформировать из них массив С, который содержит элементы А, которе есть в В более, чем в одном экземпляре.
Спасибо зарание!

[volvo]

const
  n = 10;
type
  arr = array[1 .. n] of integer;
var
  a, b, c: arr;
...
begin
  ...
  { здесь вводим массивы A, B }

  count := 0;
  for i := 1 to n do begin
    in_b := 0;
    for j := 1 to n do
      if b[j] = a[i] then inc(in_b);

    if in_b > 1 then begin
      inc(count); c[count] := a[i];
    end;
  end;

  { ... и распечатываем С }
  ...
end.