Записать номер наибольшего элемента массива перед последним отрицательным числом

var a: array[1..n] of integer;
...
m := a[1];
for i:=1 to n do begin
 if(a[i]<0) c := i;
 if(a[i]>m) begin
  m := a[i];
  n := i;
 end;
end;
// теперь в переменной n храниться номер максимального элемента, в c - номер последнего отрицательного числа, а в m - максимальное число (хотя оно как я виже по условию задачи не нужно)
a[c-1] := n; // записываем номер наибольшего элемента перед последним отрицательным

var a: array[1..n] of integer;
...
for i:=1 to n-1 do begin
 for j:=i+1 to n do begin
  if a[i] > a[j] then begin
   m := a[i];
   a[i] := a[j];
   a[j] := m;
  end;
 end;
end;
// остаеться лишь вывести массив на экран

var a: array[1..n] of integer;
    b: bool;
...
b := true; s := 0;
for i:=1 to n do begin
 if odd(a[i]) and b then begin
  b := false;
  o := i;
 end;
 inc(s, a[i]);
end;
s := round(s/n); // уже непомню в паскале функции округления, но помоему round() там есть :\
if o < n then a[o+1] := s;