Переписать сначала отрицательные, а затем положительные элементы из одного массива в другой - Free Pascal

const m = 20;
 
var i, o, n: integer;
    bc, zbc: array [1..m] of integer;
 
begin
  randomize;
  repeat
    write('n = ');
    readln(n);
    if (n < 1) or (n > m) then writeln('n out of range 1..', m, ', reenter.')
  until (n >= 1) and (n <= m);
  o := 1;
  writeln('Source array:');
  for i := 1 to n do
    begin
      bc[i] := random(199) - 99;
      write(bc[i]:4);
      if bc[i] < 0
        then begin
          zbc[o] := bc[i];
          inc(o)
        end
    end;
  writeln;
  writeln('Result:');
  for i := 1 to n do
    begin
      if bc[i] >= 0
        then begin
          zbc[o] := bc[i];
          inc(o)
        end;
      write(zbc[i]:4)
    end;
  readln
end.