Слияние массивов паскаль

[Romalikons]

Ребят , помогите с задачей(№325) плиз.
Задача :
дано 2 одномерных массива . Соеденить эти 2 массива в третий , в который сначала войдут элементы первого , а потом - второго сохраняю свою первичную последовательность.

Вообщем задали ДЗ , как решить не знаю ( кто шарит , отпишитесь пожалуйста.

[studen]

То есть есть 2 массива:
5 8 4 6 2
8 5 1
И надо получить так:
5 8 4 6 2 8 5 1
???

[Romalikons]

именно так)

[GetMax]

Const
  NN = 5;
  MM = 10;
Var
  Mas1 : array[1..NN] of Ineger;
  Mas2 : array[1..MM] of Integer;
  Mas3 : array[1..NN+MM] of Integer;
Begin
  .... //Заполнение Mas1 и Mas2
 for i:= 1 to NN do
   Mas3[i] := Mas1[i];
 for i:= NN + 1 to MM do
  Mas3[i] := Mas2[i];
End.

[BDA]

GetMax, второй цикл, наверное:

for i:= 1 to MM do
  Mas3[i + NN] := Mas2[i];

[GetMax]

BDA, точно. Не сообразил, что второй массив в моем варианте не сначала будет копироваться.