Вспомогательный массив на Dtlphi 7

[Анастасья]

пусть дана последовательность из N элементов. Увеличьте ее, вставив после каждого элемента такой же. (помогите пожалуйста составить программу)

[alex_fcsm]

Пусть

N:array[1..M] of integer;
NewN:array[1..2*M] of integer;

for i:=1 to M do
 begin
  NewN[2*i-1]:=N[i];
  NewN[2*i]:=N[i];
 end;

[Анастасья]

Премного благодарна!!)))