Перенести в начало массива все положительные элементы потом все нули и затем отрицательные

uses crt;
const n=5;
var a:array[1..n,1..n]of integer;
b:array[1..n*n] of integer;
i,j,k,p,x:integer;
begin
clrscr;
randomize;
writeln('Ishodnaja matrica:'); {sozdat matricu}
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(10)-3;
write(a[i,j]:4);
end;
writeln;
end;
readln;
k:=0;
for i:=1 to n do {razvernut v massiv}
for j:=1 to n do
begin
k:=k+1;
b[k]:=a[i,j];
end;
k:=0; {vpered nuli}
for i:=1 to n*n do
if b[i]=0 then
begin
k:=k+1;
x:=b[i];
for j:=i downto k+1 do
begin
b[j]:=b[j-1];
end;
b[k]:=x;
end;
k:=0; {vpered polozitelnye}
for i:=1 to n*n do
if b[i]>0 then
begin
k:=k+1;
x:=b[i];
for j:=i downto k+1 do
begin
b[j]:=b[j-1];
end;
b[k]:=x;
end;
writeln('Rezultat:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=b[j+n*(i-1)];
write(a[i,j]:4);
end;
writeln;
end;
readln
end.