Из одномерного массива составить двумерный

Program Primer_x;
const n=4;
const m=4;
var a: array[1..n,1..m] of integer;
var b:array [1..200] of integer;
var c:array [1..200] of integer;
i, j, x, y, sum: integer;
 
begin
 
x:=1;
y:=1;
 
    for i:=1 to n do begin
     for j:=1 to m do begin
       a[i,j]:=-100+random(201);
       write(a[i,j]:4,' ');
         if (a[i,j]<0) and (a[i,j]<>0)then begin b[x]:=a[i,j]; inc(x); end
         else if (a[i,j]>0) and (a[i,j]<>0) then begin c[y]:=a[i,j]; inc(y); end;
     end;
     writeln;
  end;
writeln;
 
writeln ('Массив из отрицательных чисел: ');
write ('[ ');
for i:=1 to x-1 do write (b[i]:3,' ');
writeln (']'); 
writeln;
 
writeln ('Массив из положительных чисел: ');
write ('[ ');
for i:=1 to y-1 do write (c[i]:3,' ');
writeln (']'); 
writeln;
end.

const n=4;
var a,d,e: array[1..n,1..n] of integer;
    b,c:array [1..n*n] of integer;
    i, j, x, y, k: integer;
begin
randomize;
writeln('Исходная матрица');
x:=0;
y:=0;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-100+random(201);
    write(a[i,j]:4);
    if a[i,j]<0 then
     begin
      inc(x);
      b[x]:=a[i,j];
     end
    else if a[i,j]>0 then
     begin
      inc(y);
      c[y]:=a[i,j];
     end;
    end;
   writeln;
 end;
writeln ('Массив из отрицательных чисел: ');
for i:=1 to x do write (b[i]:4);
writeln;
writeln ('Массив из положительных чисел: ');
for i:=1 to y do write (c[i]:4);
writeln;
if x<n*n then k:=n*n-x;
for i:=1 to k do
 begin
  inc(x);
  b[x]:=0;
 end;
for k:=1 to x do
 begin
  i:=(k-1)div n+1;{вычислим номер строки и столбца}
  j:=(k-1)mod n+1;
  d[i,j]:=b[k];{запишем элемент из массива в матрицу}
 end;
writeln('Матрица отрицательных элементов');
for i:=1 to n do
 begin
  for j:=1  to n do
  write(d[i,j]:4);
  writeln;
 end;
if y<n*n then k:=n*n-y;
for i:=1 to k do
 begin
  inc(y);
  b[y]:=0;
 end;
for k:=1 to y do
 begin
  i:=(k-1)div n+1;{вычислим номер строки и столбца}
  j:=(k-1)mod n+1;
  e[i,j]:=c[k];{запишем элемент из массива в матрицу}
 end;
writeln('Матрица положительных элементов');
for i:=1 to n do
 begin
  for j:=1  to n do
  write(e[i,j]:4);
  writeln;
 end;
end.

const m=4; n=4;
var
  a, b, c: array [1..m,1..n] of Integer;
  p, q: array [1..m*n] of Integer;
  np, nq, i, j: Integer;
begin
  Randomize; {np:=0; nq:=0;}
  for i:=1 to m do for j:=1 to n do a[i,j]:=-99+Random(199);
  WriteLn('A =');
  for i:=1 to m do begin
    for j:=1 to n do Write(' ',a[i,j]:3); WriteLn;
  end;
  for i:=1 to m do for j:=1 to n do
    if a[i,j]>0 then begin
      Inc(np); p[np]:=a[i,j];
    end else if a[i,j]<0 then begin
      Inc(nq); q[nq]:=a[i,j];
    end;
  WriteLn('P ='); for j:=1 to np do Write(' ',p[j]:3); WriteLn;
  WriteLn('Q ='); for j:=1 to nq do Write(' ',q[j]:3); WriteLn;
  for j:=1 to np do b[1+(j-1) div n,1+(j-1) mod n]:=p[j];
  for j:=1 to nq do c[1+(j-1) div n,1+(j-1) mod n]:=q[j];
  WriteLn('B =');
  for i:=1 to m do begin
    for j:=1 to n do Write(' ',b[i,j]:3); WriteLn;
  end;
  WriteLn('C =');
  for i:=1 to m do begin
    for j:=1 to n do Write(' ',c[i,j]:3); WriteLn;
  end;
end.