Сформировать третий а массива: первый - из отрицательных элементов, второй - из положительных

const
  n = 20;
 
var
  a, b, c: array[1..n] of integer;
  i, n1, n2: integer;
 
begin
  randomize;
  writeln('Массив A:');
  for i := 1 to n do
  begin
    a[i] := -99 + random(199);
    write(a[i]:4);
  end;
  writeln;
  n1 := 0; n2 := 0;
  for i := 1 to n do
    if a[i] > 0 then begin
      inc(n1);
      b[n1] := a[i];
    end else
    if a[i] < 0 then begin
      inc(n2);
      c[n2] := a[i];
    end;
  if n1 = 0 then writeln('В исходном массиве нет положительных элементов')
  else
  if n2 = 0 then writeln('В исходном массиве нет отрицательных элементов')
  else begin
    writeln('Массив B');
    for i := 1 to n1 do write(b[i]:4);
    writeln;
    writeln('Массив C');
    for i := 1 to n2 do write(c[i]:4);
  end;
  readln;
end.

const
  n = 10;
 
var
  a, b: array[1..n] of integer;
  c: array[1..2 * n] of integer;
  i: integer;
 
begin
  randomize;
  writeln('Ìàññèâ A');
  for i := 1 to n do
  begin
    a[i] := -100 + random(100);
    write(a[i]:4);
  end;
  writeln;
 
  writeln('Ìàññèâ B:');
  for i := 1 to n do
  begin
    b[i] := 1 + random(99);
    write(b[i]:4);
  end;
  writeln;
 
  for i := 1 to 2 * n do
    if i <= n then c[i] := a[i]
    else c[i] := b[i - n];
  writeln('Ìàññèâ C');
  for i := 1 to 2 * n do
    write(c[i]:4);
  readln;
end.