Сортировка матрицы методом Шелла

[NewbieStudent]

Тут на днях озадачили простым заданием: Отсортировать столбцы произвольной матрицы по убыванию методом Шелла. Лекцию пропустил, а с помощью интернета в сути так разобраться и не смог. Будьте добры, разжуйте как для дураков эту тему. ):

[Stilet]

А так?:http://delphiworld.narod.ru/base/shell_sort.html

[NewbieStudent]

Сообщение от Stilet

А так?:http://delphiworld.narod.ru/base/shell_sort.html

Спасибо большое, теперь разобрался.

[NewbieStudent]

Вообщем заброковали мою работу. Сказали, что необходимо чтобы сортировка Шелла была переделана под матрицу из этого программного кода:

program shell_sort;
const n=18;
a:array[1..n] of integer
=(18,17,16,15,14,13,12,11,10,9,8,7,6,5,4,3,2,1);
var ii,m,x,s,p,t,k,r,i,j: integer;
begin
t:= trunc(ln(n)/ln(2));
repeat
t:= t-1;
k:= (1 shl t)-1;
p:= n mod k;
s:= n div k;
if p=0 then p:= k
else s:= s+1;
writeln(k,'-сортировка');
for i:= 1 to k do {берем и длинные, и короткие
подпоследовательности}
begin
if i= p+1 then s:= s-1; (для коротких - уменьшаем длину}
for j:= 1 to s-1 do {метод ПрВст с шагом k}
if a[i+(j-1)*k]>a[i+j*k]
then begin x:= a[i+j*k];
m:= i+(j-1)*k;
while (m>0) and (a[m]>x) do
begin a[m+k]:= a[m];
m:= m-k;
end;
a[m+k]:= x;
end;
for ii:= 1 to n do write(a[ii],' ');
writeln;
end;
until k=1;
end.

То есть такой тип их не устроил:

uses crt;
var a: array[1..25, 1..25] of integer;
	i, j, n, m, z, x, incr, l, k, tmp, t, p: integer;

begin
clrscr;
randomize;
writeln('vvedite chislo strok');
readln(n);
writeln('vvedite chislo stolbtsov');
readln(m);

{zapolnenie matrix}
for i := 1 to n do
begin
for j := 1 to m do
a[i, j] := random(25);
end;
textcolor(red);
writeln('ishodnaia matritsa');
textcolor(white);
for i := 1 to n do
begin
for j := 1 to m do
write(a[i, j], ' ');
writeln;
end;

{sortirovka matrix}
for i := 1 to n do
begin
for j := 1 to m do
begin
{sortirovka shella}
incr := n div 2;
while incr > 0 do
begin
for k := incr + 1 to n do
begin
l := k - incr;
while l > 0 do
if a[l, j] < a[l + 1, j] then
begin
tmp := a[l, j];
a[l, j] := a[l + 1, j];
a[l + 1, j] := tmp;
l := l - incr
end
else
l := 0
end;
incr := incr div 2;
end; {tsikl sortirivki zaconchilsa}
end;
end; {konets vsego tsikla}
textcolor(red);
writeln('novi matrix');
textcolor(white);
for i := 1 to n do
begin
for j := 1 to m do
write(a[i, j], ' ');
writeln;
end;

readln;
end.

Бился целую неделю, но переделать 1 тип под матрицу не смог. Путаюсь в переменных хоть ты тресни. Помогите под матрицу эту ерундистику переделать. Уже не могу...

[NewbieStudent]

program shell_sort;
uses crt;
var ii,m,s,p,t,k,r,i,j,z,x,n,w: integer;
    MTRX:array[1..25,1..25] of integer;
begin
clrscr;
randomize;
textcolor(red);
writeln('‚ўҐ¤ЁвҐ зЁб«® бва®Є');
readln(n);
textcolor(red);
writeln('‚ўҐ¤ЁвҐ зЁб«® бв®«Ўж®ў');
readln(w);

textcolor(red);

for i:=1 to n do
 begin
   for j:=1 to w do
    begin
     MTRX[i,j]:=random(10)-5;
     write(MTRX[i,j]:7);
    end;
   writeln;
 end;

for z:=1 to n do
begin
 t:=trunc(ln(n)/ln(2));
	repeat
		t:=t-1;
		k:=(1 shl t)-1;
		p:=n mod k;
		s:=n div k;
  if p=0 then p:=k
  else s:=s+1;

   for i:=1 to k do
   begin
    if i=p+1 then s:=s-1;
    for j:= 1 to s-1 do
     if MTRX[i+(j-1)*k,z]>MTRX[i+j*k,z]
      then begin x:=MTRX[i+j*k,z];
       m:=i+(j-1)*k;
       while (m>0) and (MTRX[m,z]>x) do
         begin MTRX[m+k,z]:= MTRX[m,z];
         m:=m-k;
         end;
       MTRX[m+k,z]:=x;
      end;
end;
	until k=1;
end;
writeln;
writeln;
for i:=1 to n do
begin
 for j:=1 to w do
  write(MTRX[i,j]:5);
 writeln;
end;
readln;
end.

Вроде бы получилось