Дан массив n чисел. Записать номер наибольшего элемента массива перед последним отрицательным числом — Pascal(Паскаль)

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;
// записываем номер наибольшего элемента перед последним отрицательным