Ребят помогите с массивом

[mannn]

Задан одномерный массив M(N) (N<=60). Все его отрицательные элементы заменить суммой положительных элементов. Нулевые элементы пропускать. Полученный массив распечатать.

Вот программа, но отрицательные элементы суммой положительных не заменяет, что сделать?

program abc;
const Nmass=60;
var
m:array[1..Nmass] of real;
i,n,p:integer;
s:real;
begin
write('Введите количество элементов массива');
readln(N);
writeln('Введите элементы массива M');
for i:=1 to N do
begin
write('M[',i,']=');
readln(M[i]);
end;
writeln('Заменяем отрицательные элементы массива суммой положительных элементов');
for i:=1 to N do
s:=0;
if M[i] > 0 then s:=s+m[i];
for i:=1 to N do
if M[i] < 0 then m[i]:=s;
for i:=1 to n do
writeln('m[',i,']=',M[i]);
readln;
end.

[Аватар]

for i:=1 to N do
s:=0;
if M[i] > 0 then s:=s+m[i];

замени на

s:=0;
for i:=1 to N do
if M[i] > 0 then s:=s+m[i];

И не кросспости

http://programmersforum.ru/showthread.php?t=285824