Работа с несколькими массивами

[mexx1337]

Помогите пожалуста решить задачу :
Массивы А и В формируются случайным образом из целых чисел,принадлежащих от 10 до 20.
Сформировать массив С из А и В ,переписав только элементы,совпадающие по значению и по номеру в А и В...
Заранее спасибо

[rubius2008]

for i:=1 to n do if a[i]=b[i] then begin
  k:=k+1;c[k]:=a[i];
end;