Выкладываю своё решение (правда на С++). Мало ли, кому-нибудь пригодится.
Выкладываю на С++, т.к. плохо знаком с Делфи. Хотя и могу перевести код и он даже будет работать, но скорее всего, будет не эффективен. И к тому же, могут быть скрытые ошибки.
| Код |
// некий массив 10х10
int mas[10][10] = {{9,5,6,2,8,1,0,5,4,1},
{8,3,1,6,5,7,2,8,0,2},
{7,8,1,0,4,7,2,9,4,6},
{6,5,6,2,2,4,8,6,0,4},
{5,1,6,3,7,8,2,5,3,0},
{4,7,7,5,2,7,1,0,8,5},
{3,4,7,2,8,1,3,5,3,8},
{2,1,3,7,2,9,4,7,3,0},
{1,4,4,7,2,8,4,6,6,9},
{0,5,2,6,1,7,3,8,3,7}};
// функция сортировки
// mas - указатель на массив
// iCols - количество столбцов в массиве
// iCol - индекс столбца, по которому нужно произвести сортировку
// L - левый индекс сортируемого участка
// R - правый индекс сортируемого участка
void _QuickSort(int *mas, const int iCols, const int iCol, int L, int R) {
int I, J, P, T;
do {
I = L;
J = R;
P = mas[((L + R) >> 1)*iCols+iCol];
do {
while(mas[I*iCols+iCol] < P)
++I;
while(mas[J*iCols+iCol] > P)
--J;
switch(I<=J?(I<J?0:1):-1) {
case 0:
for(register int i=0; i<iCols; ++i) {
T = mas[I*iCols+i];
mas[I*iCols+i] = mas[J*iCols+i];
mas[J*iCols+i] = T;
}
case 1:
++I;
--J;
}
} while(I < J);
if(L < J)
_QuickSort(mas, iCols, iCol, L, J);
L = I;
} while(I < R);
}
// использование:
_QuickSort(*mas, 10, 0, 0, 9);
|
Алгоритм стащил из реализации в classes.pas 
Объясню почему я написал так:
| Код |
switch(I<=J?(I<J?0:1):-1) {
case 0:
for(register int i=0; i<iCols; ++i) {
T = mas[I*iCols+i];
mas[I*iCols+i] = mas[J*iCols+i];
mas[J*iCols+i] = T;
}
case 1:
++I;
--J;
}
|
, а не оставил так как это было реализовано в classes.pas:
Дело в том, что там было написано приблизительно так:
| Код |
if(I<=J) {
for(register int i=0; i<iCols; ++i) {
T = mas[I*iCols+i];
mas[I*iCols+i] = mas[J*iCols+i];
mas[J*iCols+i] = T;
}
++I;
--J;
}
|
Здесь получается, что когда индексы совпадают, т.е. I==J происходит перестановка элементов с этими индексами, но это бессмысленно как вы понимаете (пустая трата времени)
ЗЫ профи поправьте меня если что  |
)