[lmikle]

последний отрицательный, это значит, что тебе надо найти этот элемент. Неизвестно, на каком месте он находится.

Код:

var
  M : Array of Integer;
  I : Integer;
begin
  ...
  For I := High(M) DownTo Low(M) Do
    If  M[i] < 0 Then
      Begin
        M[i] := Abs(M[Low(M)]);
        Break;
      End;
  ...
end;

PS. Не забываем про теги и лучше форматируй код, тебе же проще будет в нем разбираться.