сортировка методом вставки

Ответ от Александр Комлев[гуру]
Сортировка простой вставкой (немного измененная версия вот этого кода из FAQ: Методы сортировок)
type
T = integer;
procedure Insert(var V; size: Integer);
var
Arr: array[1 .. MaxInt div SizeOf(T)] of T absolute V;
i, j: Integer;
Element: T;
begin
for i := 1 to size do
begin
Element := Arr;
j := Pred(i);
while (j > 0) and (Element < Arr[j]) do
begin
Arr[Succ(j)] := Arr[j]; Dec(j);
end;
Arr[Succ(j)] := Element;
end;
end;
А теперь, внимание. Передаем в эту же процедуру нашу матрицу:
сonst
m = 3; n = 3;
b: array[1 .. m, 1 .. n] of integer = (
(89, 898, 12),
( 0, 13, 14),
(23, 21, 98)
);
{ ..}
Insert(b, m * n);
{ ..}
Хоть двумерную, хоть трехмерную, какую хочешь, такую и передавай, процедура сортировки работает с "вытянутым в цепочку", строка за строкой, представлением.