В матрице заменить знакочередующиеся элементы максимальными и минимальными элементами строк

const n = 10; m = 5;
var i, j, min, max: integer; a: array [1..n, 1..m] of integer;
begin
  randomize;
  writeln('Source array:');
  for j := 1 to m do
    begin
      for i := 1 to n do
        begin
          a[i, j] := -99 + random(199);
          write(a[i, j]:4)
        end;
      writeln
    end;
  for j := 1 to m do
    begin
      min := a[1, j];
      max := min;
      for i := 2 to n do
        begin
          if a[i, j] < min then min := a[i, j];
          if a[i, j] > max then max := a[i, j]
        end;
      if ((min >= 0) and (max >= 0)) or ((min <= 0) and (max <= 0)) then continue;
      for i := 1 to n - 1 do
        begin
          if (a[i, j] < 0) and (a[i + 1, j] > 0)
            then begin
              a[i, j] := min;
              a[i + 1, j] := max
            end;
          if (a[i, j] > 0) and (a[i + 1, j] < 0)
            then begin
              a[i, j] := max;
              a[i + 1, j] := min
            end
        end
    end;
  writeln('Result:');
  for j := 1 to m do
    begin
      for i := 1 to n do write(a[i, j]:4);
      writeln
    end;
  readln
end.