Замена всех элементов, которые стоят после элемента с противоположным знаком на максимальный элемент массива. Делать через одномерный массив — Pascal(Паскаль)

var
  arr: array [1 .. 50] of integer;
  i, max, n: integer;

begin
  writeln('Vvedite razmernost massiva:');
  readln(n);
  writeln('Resultat:');
  for i := 1 to n do
    readln(arr[i]);
  for i := 2 to n do
    if arr[i] > arr[i - 1] then
      max := arr[i];
  if arr[1] > 0 then
    for i := 2 to n do
      if arr[i] < 0 then
        arr[i] := max;

  if arr[1] < 0 then
    for i := 2 to n do
      if arr[i] > 0 then
        arr[i] := max;

  for i := 1 to n do
    write(arr[i]:4);

end.