Задача на массив

[Юля_0990]

ПОМОГИТЕ РЕБЯТА!!! Дан массив А. Заменить в нем первый отрицательный элемент суммой неотрицательных. Вот я написала начало...а дальше не знаю как, что то в голову ничего не приходит.
Program p1;
const N=5;
Type Mas=ARRAY[1..N] of real;
Procedure P(var A:Mas);
var i:byte;
begin
for i:=1 to N do
begin
write('A[',i,']=');
readln(A[i]);
end;
end;
Procedure zamena(var A:mas);
var m,i:integer;
begin
For i:=1 to n do if A[i]<0 then

[whatever]

Первый вариант:

Procedure zamena(var A:mas);
var
  m,i:integer;
  sum:real;
begin
  m:=0;
  sum:=0;
  For i:=1 to n do
    if A[i]<0 then
      begin
        m:=i; //Предполагаю, что m - это первый отрицательный
        break;
      end;
  For i:=1 to n do
    if A[i]>0 then
      sum:=sum+a[i];
  if m<>0 then
    A[m]:=sum;
end;

Второй вариант:

Procedure zamena(var A:mas);
var
  m,i:integer;
  sum:real;
begin
  sum:=0;
  m:=0;
  For i:=n downto 1 do
    begin
      if A[i]<0 then
         m:=i;
      if A[i]>0 then
        sum:=sum+a[i];
    end;
  if m<>0 then
    A[m]:=sum;
end;

[Юля_0990]

спасибо большое))