Сортировка двумерного массива с записью значений в одномерный: положительных затем отрицательных

const
  (*Размерности исходного двумерного массива.*)
  M = 5;
  N = 7;
var
  Arr : array[1..M * N] of Integer;
  i, j, NumTmp : Integer;
...
begin
...
  (*Сортировка вставками. По убыванию.*)
  for i := 2 to N do begin
    j := i;
    NumTmp := Arr[i];
    while (j > 1) and (Arr[j - 1] < NumTmp) do begin
      Arr[j] := Arr[j - 1];
      j := j - 1;
    end;
    Arr[j] := NumTmp;
  end;
...
end.

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    b:array[1..nmax*nmax] of integer;
    m,n,i,j,k,p:byte;
    x:integer;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' m=');
readln(m);
until m in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do{создаем матрицу}
 begin
   for j:=1 to m do
    begin
     repeat
     a[i,j]:=random(20)-6;
     until a[i,j]<>0;{без нолей, про них ничего не сказано}
     write(a[i,j]:4);
    end;
   writeln;
 end;
writeln;
p:=0;{создаем массив}
for i:=1 to n do
for j:=1 to m do
 begin
  p:=p+1;
  b[p]:=a[i,j];
 end;
k:=0;{переставляем положительные вперед}
for i:=1 to p do
if b[i] >0 then
  begin
    k:=k+1;
    x:=b[i];
    for j:=i downto k+1 do
    b[j]:=b[j-1];
    b[k]:=x;
  end;
writeln('Массив:');
for i:=1 to p do
write(b[i],' ');
readln
end.