Вывести два однородных массива, состоящие только из положительных и отрицательных элементов двумерного массива.

const n=5;
var
a: array [1..n,1..n] of integer;
b: array [1..n*n] of integer;
i,k:integer;
begin
for i:=1 to n do begin
for k:=1 to n do begin
readln(a[i,k]);
b[i*k]:=abs(a[i,k]);
end;
end;
for i:=1 to n*n do begin
writeln(b[i]);
end;
readln;
end.

Program Massiv;
Uses crt;
Var
   a:array [1..5, 1..5] of integer;
   b:array [1..5] of integer;
   c:array [1..5] of integer;
   i,j:integer;
begin
clrscr;
Randomize;
for i:= 1 to 2 do begin
for j:=1 to 5 do begin
a[i,j]:=Random (36)-30;
write (a[i,j]:5);
end;
writeln;
end;
writeln;
for i:= 1 to 2 do begin
for j:=1 to 5 do begin
If (a[i,j]<0) then
b[j]:=a[i,j];
write (b[j]:5);
end;
end;
writeln;
for i:= 1 to 2 do begin
for j:=1 to 5 do begin
If (a[i,j]>=0) then
c[j]:=a[i,j];
write (c[j]:5);
end;
end;
end.

{Модуль к программе}
Unit matrix;
interface
Type mas=array [1..100,1..100] of integer;
procedure otric(n:integer; var a:mas);
procedure polozh(n:integer;var a:mas);
implementation
procedure otric(n:integer; var a:mas);
Var x:array [1..100] of integer;
    i,j,k:integer;
begin
k:=0;
for i:=1 to n do
 for j:=1 to n do
   if a[i,j]<0 then begin
                    x[i]:=a[i,j];
                    k:=k+1;
                    end;
writeln;
Writeln ('Massiv otricatelnyx elementov ');
For i:=1 to k do write (x[i],' ');
writeln;
end;
procedure polozh(n:integer;var a:mas);
Var y:array [1..100] of integer;
    i,j,k1:integer;
begin
k1:=0;
for i:=1 to n do
 for j:=1 to n do
   if a[i,j]>=0 then begin
                    y[i]:=a[i,j];
                    k1:=k1+1;
                    end;
writeln;
writeln (' Massiv polozhitelnyx elementov ');
for i:=1 to k1 do write (y[i],' ');
end;
begin
end.

{Основная}
Program aaa;
Uses matrix,crt;
Var a:mas;
    n,i,k,j:integer;
begin
clrscr;
Writeln (' vvedite razmernost matrici ');
 Readln (n);
  for i:=1 to n do
    for j:=1 to n do begin
                     write ('a[',i,',',j,']=');
                     Readln (a[i,j]);
                     end;
writeln (' Polychena matrica ');
for i:=1 to n do
 begin
 for j:=1 to n do
    Write ('  ',a[i,j],' ');
    writeln;
 end;
writeln;
otric(n,a);
polozh(n,a);
writeln;
readln
end.