Отсортировать столбцы матрицы по невозрастанию количества отрицательных чисел в столбцах (простыми вставками)

procedure task2(var ns1,ns2:integer; mas:PTable);
 
 
 var
  max:array[1..{ns2}20] of integer;
   i,j,t1,z,f:integer;
       b:boolean;
       t2:TElem;
 
 
 begin
  { создаю ключи - последовательность содержащая количество отр чисел в столбцах для каждого столбца соотв элемент }
 
  for j:=1 to ns2 do max[j]:=0;
 
 
  for j:=1 to ns2 do
   begin
    for i:=1 to ns1 do
     if mas^[i]^[j]<0 then inc(max[j]);
 
   end;
                             for i:=1 to ns2 do
   write(max[i]);
                 writeln;
  { вот здесь пытался сделать сортировку \\ пузырек получался но простые вставки не получаются }
 
  for i := 2 to ns2 do
 if max[i - 1] > max[i] then                {*}
   begin
 
 
    t1 := max[i];
    j := i - 1;
   while (j > 0) and (max[j] > t1
   ) do
     begin
      max[j + 1] := max[j];
      j := j - 1;
     end;
   max[j + 1] := t1;
 
    (*
 
 
  for f:=1 to ns1 do begin
     t2 := mas^[f]^[i];
    j := i - 1;
   while (j > 0) and (mas^[f]^[j] > t2) do      {**}
     begin
      mas^[f]^[j + 1] := mas^[f]^[j];
      j := j - 1;
     end;
   mas^[f]^[j + 1] := t2;
 
               end;
 
 
                *)
 
 
 
 end;
 
 
                for i:=1 to ns2 do
   write(max[i]);
end;

Procedure  vkl(m:integer; var mass:TA); {m - кол-во элементов массива} 
Var i,j,x:integer;
    sr,per:longint;
begin
   sr:=0;
   per:=0;
   for i:=2 to m do
   begin
     x:=mass[i];
     j:=i-1;
     while (j>=1) and (mass[j]>x) do begin
       sr:=sr+1;
       per:=per+1;
       mass[j+1]:=mass[j];
       j:=j-1;
     end;
     sr:=sr+1;
     mass[j+1]:=x;
   end;
   write(sr:10,'  |',per:12,'  |');
end;

uses crt;
const nmax=20;
type  matr=array[1..nmax,1..nmax] of integer;
procedure Vvod(var mt:matr;var x,y:byte);
{создаем исходную матрицу}
var i,j:byte;
begin
repeat
write('Количество строк до ',nmax-1,'=');
readln(x);
until x in [1..nmax-1];
repeat
write('Количество столбцов=');
readln(y);
until y in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to x do
for j:=1 to y do
mt[i,j]:=-20+random(40);
end;
 
procedure KolOtr(var mt:matr;x,y:byte);
{считаем количество отрицательных в столбце}
var i,j,k:byte;
begin
for j:=1 to y do
 begin
  k:=0;
  for i:=1 to x do
  if mt[i,j]<0 then k:=k+1;
  mt[x+1,j]:=k;{и записываем в дополнительную строку}
 end;
end;
 
procedure Vyvod(var mt:matr;x,y:byte);
{вывод матриц с суммой}
var i,j:byte;
begin
for i:=1 to x do
 begin
  write(' ':8);{5 пробелов в начале строки}
  for j:=1 to y do
  write(mt[i,j]:4);{элементы строки}
  writeln;
 end;
write('Кол.отр.');{дополнительная строка с суммами}
for j:=1 to y do
write(mt[x+1,j]:4);
writeln;
writeln;
end;
 
procedure SrVst(var mt:matr;x,y:byte);
{перестановка столбцов по невозрастанию количества отрицательных  методом вставок}
var i,j,k:byte;
    buf:integer;{буфер для обмена в строке сумм}
    p:array[1..nmax] of integer; {буферы для обмена в остальных строках}
begin
for i:=2 to y do{по строке}
 begin
  buf:=mt[x+1,i];{запоминаем элемент в строке сумм}
  for k:=1 to x do
  p[k]:=mt[k,i]; {элементы на тех же позициях в остальных строках}
  j:=i-1;{смотрим элемент перед ним}
  while (j>=1) and (mt[x+1,j]<buf) do
  {пока не дошли до первого и элемент больше начального}
   begin
    mt[x+1,j+1]:=mt[x+1,j];{сдвигаем вправо}
    for k:=1 to x do
    mt[k,j+1]:=mt[k,j];{то же с элемнтами в других строках}
    j:=j-1;{следующий влево элемент}
   end;
  mt[x+1,j+1]:=buf;{вставляем элемент на место}
  for k:=1 to x do
  mt[k,j+1]:=p[k];{то же с элемнтами в других строках}
 end;
end;
 
var a:matr;
    n,m:byte;
begin
clrscr;
randomize;
Vvod(a,n,m);
KolOtr(a,n,m);
Vyvod(a,n,m);
SrVst(a,n,m);
writeln('Столбцы упорядочены:');
Vyvod(a,n,m);
readln
end.