Помогите решить:
Дан массив х(n) и натуральное число М (M<N), сформировать массив Y из тех элементов массива Х которые больше суммы первых М элементов массива Х
var Sum:TElem;
i,j,n1:word;
Y:^array[1..1] of TElem;
begin
Sum:=0;
n1:=0;
j:=0;
for i:=1 to M do Sum:=Sum+X[ i ];
for i:=1 to N do if X[ i ]>Sum then inc(n1);
getmem(Y,n1*sizeof(TElem));
for i:=1 to N do if X[ i ]>Sum then
begin
inc(j);
Y^[j]:=X[ i ];
end;
end.