В двумерном массиве разместить в начале положительные элементы по возрастанию, затем отрицательные по убыванию

procedure TForm4.Button1Click(Sender: TObject);
var a:array of array of integer;
    b:array of array of integer;
    c,v,k,i,m,p:integer;
  e: Integer;
begin
c:=strtoint(edit1.Text);
v:=strtoint(edit2.Text);
stringgrid1.RowCount:=c+1;
stringgrid1.ColCount:=v+1;
stringgrid2.RowCount:=c+1;
stringgrid2.ColCount:=v+1;
/////ЗАПОЛНЕНИЕ ПЕРВОГО МАССИВА/////
Setlength(a,v,c);
 randomize;
   begin
   for i:=1 to c do
       StringGrid1.Cells[0,i]:=inttostr(i);
   for k:=1 to v do
       StringGrid1.Cells[k,0]:=inttostr(k);
       end;
 
   for k:=1 to v do
  for i:=1 to c do
  begin
  a[k-1,i-1]:=random(101);
  StringGrid1.Cells[k,i]:=inttostr(a[k-1,i-1]);
  end;
 /// C-кол-во строк
 /// V-кол-во столбцов
 /// V-кол-во столбцов
 /////ЗАПОЛНЕНИЕ ВТОРОГО МАССИВА/////
Setlength(b,v,c);
for i := 1 to v do
  stringgrid1.Cells[0,i]:=inttostr(i);
  for k := 1 to c do
  stringgrid1.Cells[k,0]:=inttostr(k);
 
   for i := 0 to m-1 do
    for k := 0 to m-1 do
      if a[k-1,i-1]>a[k,i]
      then begin
       p:=a[k-1,i-1];
       a[k-1,i-1]:=a[i,k];
       a[i,k]:=p;
      end;
  for i := 1 to c do
    for k := 1 to v do
      stringgrid2.Cells[k,i]:=inttostr(a[k,i]);
 
 
 
end;

var
  Form1: TForm1;
  a:array of array of integer;
  m,n:integer;
implementation
 
{$R *.dfm}
//создание матрицы
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
m:=strtoint(Edit1.Text);//более принято чем c,v
n:=strtoint(Edit2.Text);
randomize;
setlength(a,m,n);
StringGrid1.RowCount:=m;
StringGrid1.ColCount:=n;
StringGrid2.RowCount:=m;
StringGrid2.ColCount:=n;
for i:=0 to m-1 do
for j:=0 to n-1 do
 begin
  repeat
  a[i,j]:=-10+random(21); //и отрицательные и положительные
  until a[i,j]<>0;//ноли не нужно
  StringGrid1.Cells[j,i]:=inttostr(a[i,j]);//индексы строк и столбцов в таблицу наоборот
 end;
end;
//сортировка матрицы
procedure TForm1.Button2Click(Sender: TObject);
var i,j,k,x:integer;
begin
//положительные вперед
k:=-1;
for i:=0 to m*n-1 do
if a[i div n,i mod n]>0 then
 begin
  inc(k);
  x:=a[i div n,i mod n];
  for j:=i downto k+1 do
  a[j div n,j mod n]:=a[(j-1)div n,(j-1)mod n];
  a[k div n,k mod n]:=x;
 end;
//сортировка положительных по возрастанию
for i:=0 to k-1 do
for j:=i+1 to k do
if a[i div n,i mod n]>a[j div n,j mod n] then
 begin
  x:=a[i div n,i mod n];
  a[i div n,i mod n]:=a[j div n,j mod n];
  a[j div n,j mod n]:=x;
 end;
//сортировка отрицательных по убыванию
for i:=k+1 to m*n-2 do
for j:=i+1 to m*n-1 do
if a[i div n,i mod n]<a[j div n,j mod n] then
 begin
  x:=a[i div n,i mod n];
  a[i div n,i mod n]:=a[j div n,j mod n];
  a[j div n,j mod n]:=x;
 end;
for i:=0 to m-1 do
for j:=0 to n-1 do
StringGrid2.Cells[j,i]:=inttostr(a[i,j]);
end;