Сформировать два массива из элементов исходного

var a[1..1000]:array of integer;
     b[1..1000]:array of integer;
     c[1..1000]:array of integer;
     i,n,m,k:integer;
begin
 read(k);
 m:=0;
 n:=0;
 for i:=1 to k do
  begin
   read(a[i]);
   if a[i]>0 then
    begin
     inc(n);
     b[n]:=a[i];
    end;
   if a[i]<0 then
    begin
     inc(m);
     c[m]:=a[i];
    end;
  end;
 for i:=1 to n do
  write(b[n],' ');
 writeln;
 for i:=1 to m do
  write(c[m],' ');
 readln;
end.

var
  A, B, C: array[1..200] of integer;
  N, i, j, k: integer;
  
begin
  write(' N = ');
  readln(N);
  j := 0; //количество положительных чисел
  k := 0; //количество отрицательных чисел
  writeln;
  writeln('Формируем случайный массив ', N, ' чисел:');
  for i := 1 to N do 
  begin
    a[i] := random(200) - 100;
    write(' ', a[i]);
    if a[i] > 0 then 
     begin 
       inc(j); 
       b[j] := a[i] 
     end
    else
    if a[i] < 0 then
     begin 
       inc(k); 
       c[k] := a[i] 
     end
  end;
  writeln;
  writeln;
  writeln('Массив положительных чисел:');
  if j > 0 then
    for i := 1 to j do write(' ', b[i])
  else 
    write('  данный массив не содержит положительных чисел');
  writeln;
  writeln;
  writeln('Массив отрицательных чисел:');
  if k > 0 then
    for i := 1 to k do write(' ', c[i])
  else 
    write('  данный массив не содержит отрицательных чисел');
end.