Сортировка Шелла

[adidas]

Нашел задачу на форуме, в которой сортируются столбцы по значениям последней строки, методом сортировки Шелла и у меня не получается ее переделать, что бы сортировались строки по возрастанию значений последнего столбца.

Program a334;
type
  ta=array[1..1000,1..1000] of integer;
var
  a:ta;
  i,j:integer;
  n,m:integer;

procedure shell(var a:ta); { sortirovka shella }
var c,z,incr,k:integer;
begin
for  k:=1 to n do begin
incr:= m div 2;
while  incr>0 do
  begin
    for  z:=incr+1 to m do
      begin

	      i:= z-incr;
	      while  i>0 do
	        if a[i,k]>a[i+incr,k] then
            begin
	  	        c:=a[i,k];
              a[i,k]:=a[i+incr,k];
              a[i+incr,k]:=c;
			        j:=i-incr;
	          end
	                            else
            i:=0;   { ostonovka proverki }
      end;
        incr:= incr div 2
   end; end;
  end; { konec sortirovki shella }
procedure shell2(var a:ta); { sortirovka shella }
var c,z,incr,k:integer;
begin
incr:= m div 2;
while  incr>0 do
  begin
    for  z:=incr+1 to n do
      begin

	      i:= z-incr;
	      while  i>0 do
	        if a[m,i]>a[m,i+incr] then
            begin
            for k:=1 to  m  do
            begin
	  	        c:=a[k,i];
              a[k,i]:=a[k,i+incr];
              a[k,i+incr]:=c;
			        j:=i-incr;
            end;
	          end
	                            else
            i:=0;   { ostonovka proverki }
      end;
        incr:= incr div 2
   end;
  end; { konec sortirovki shella }

begin
  write('Vvedite kolichestvo strok: ');
  readln(m);
  write('Vvedite kolichestvo stolbcov: ');
  readln(n);
  for i:=1 to m do
  for j:=1 to n do
    begin
      write('Vvedite ',i,j,' element matreci A: ');
      readln(a[i,j]);
    end;
writeln('matrica A');
 for i:=1 to m do
   begin
    for j:=1 to n do
     write (a[i,j],' ');
    writeln;
   end;
   
shell(a);

writeln('matrica B');
 for i:=1 to m do
   begin
    for j:=1 to n do
     write (a[i,j],' ');
    writeln;
   end;
   
shell2(a);

writeln('matrica C');
 for i:=1 to m do
   begin
    for j:=1 to n do
     write (a[i,j],' ');
    writeln;
   end;


readln;
end.