Задача Pascal (Сортировка метод Шелла)

[madmonk]

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

Не сортирует.

Program a334;
type
  ta=array[1..1000,1..1000] of integer;
var
  a:ta;
  r,s:integer;
  i,j,imin,jmin:integer;
  n,m:integer;
  amin:real;

procedure shell(var a:ta;r,s:integer); { Сортировка Шелла }
var c,z,incr,i:integer;
begin
incr:= r div 2;
while  incr>0 do begin
  for  z:=incr+1 to r do  begin
	i:= z-incr;
	while  j>0 do
	  if a[i,s]>a[i+incr,s] then  begin
	  		c:= a[i,s]; a[i,s]:=a[i+incr,s];
			a[i+incr,s]:=a[i,s];
			j:=i-incr
	  end
	  else   i:=0   { остановка проверки }
  end;
  incr:= incr div 2
end;
end; { конец сортировки Шелла  }
  
begin
  write('Введите колличество строк: ');
  readln(m);
  write('Введите колличество столбцов: ');
  readln(n);
  for i:=1 to m do
  for j:=1 to n do
    begin
      write('Введите ',i,j,' элемент матрици А: ');
      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,m,n);

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


readln;
end.

[madmonk]

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); { ñîðòèðîâêà Øåëëà }
var c,z,incr,k:integer;
begin
i:=0;
j:=0;
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;   { îñòàíîâêà ïðîâåðêè }
      end;
        incr:= incr div 2
   end; end;
  end; { êîíåö ñîðòèðîâêè Øåëëà }
  
begin
  write('ââåäèòå êîëè÷åñòâî ñòðîê: ');
  readln(m);
  write('ââåäèòå êîëè÷åñòâî ñòîëáöîâ: ');
  readln(n);
  for i:=1 to m do
  for j:=1 to n do
    begin
      write('Ââåäèòå ',i,j,' ýëåìåíò ìàòðèöû À: ');
      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;


readln;
end.

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

[madmonk]

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.

вроде все правлильно сделал. проверте пожалуста
И можно это как-то упростить?