Записать все положительные элементы матрицы в массив B, а отрицательные - в массив C

program massiv;
var i, j: integer;
var a:array[1..3, 1..3] of integer;
var b:array[1..9] of integer;
var c:array[1..9] of integer;
begin
writeln('Введите маcсив размером 3 на 3');
for i:=1 to 3 do 
for j:=1 to 3 do
Begin
write ('a(',i,',',j,')='); 
readln (a[i, j]); 
end;
writeln();
for i:=1 to 3 do 
for j:=1 to 3 do
begin
if a[i,j]<0 then b[i]:=a[i,j];
write (b [i],' ');
end;
writeln();
for i:=1 to 3 do 
for j:=1 to 3 do
begin
if a[i,j]>0 then c[i]:=a[i,j]; 
write (c [i],' ');
end;
end.

const n=3;
var a:array[1..n, 1..n] of integer;
    b,c:array[1..n*n] of integer;
    i,j,k,m: integer;
begin
writeln('Введите маcсив размером 3 на 3');
for i:=1 to n do
for j:=1 to n do
 begin
  write ('a(',i,',',j,')=');
  readln (a[i,j]);
 end;
writeln('Двумерный массив');
k:=0;
m:=0;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    write(a[i,j]:5);
    if a[i,j]>0 then
     begin
      k:=k+1;
      b[k]:=a[i,j];
     end;
    if a[i,j]<0 then
     begin
      m:=m+1;
      c[m]:=a[i,j];
     end;
    end;
   writeln;
  end;
if k=0 then writeln('В массиве нет положительных элементов')
else
 begin
  writeln('Массив положительных элементов');
  for i:=1 to k do
  write(b[i],' ');
  writeln;
 end;
if m=0 then writeln('В массиве нет отрицательных элементов')
else
 begin
  writeln('Массив отрицательных элементов');
  for i:=1 to m do
  write(c[i],' ');
 end;
end.