ПЕРЕНОС ДАННЫХ ИЗ ОДНОГО МАССИВА В ДРУГОЙ.

Дано ДВА массива
М1 - 100 элементов (случайных от 1 до 10 включительно)
И массив М2 из 50 элементов!

ЗАПОЛНИТЬ ПЕРВЫЙ МАССИВ А ПОТОМ ПЕРЕПИСАТЬ ДАННЫЕ ВО ВТОРОЙ!
но ВНИМАНИЕ в первый элемент (M2[1]) должна попасть сумма элементов M1[1]+M1[2].
Во второй элемент сумма двух следующих M2[2]=M1[3]+M1[4] ну и так далее..
Подумайте, как заполнить первый массив а потом сделать так,
чтобы одним циклом все переписалось как надо!
СРОЧНО ОЧЕНЬ НУЖНО ПОМОГИТЕ!!! program project1;
var
M1:Array[1..100] of Integer;
M2:Array[1..50] of Integer;
X, I:Integer;
begin
For X:=1 to 100 do begin
M1[X]:=random(10)+1;
end;
I:=0;
For I:=1 to 50 do begin
M2[I]:=M1[I+1]+M1[I+2];
WriteLn(M2[I])
end;

ReadLn;
end.
ВСЁ УЖЕ НАПИСАЛ, НО ФОРМУЛА НЕВЕРНАЯ. ПОМОГИТЕ!