Сортировка двумерного массива методом вставки. Опции

[Ditaly]

Всем доброго времени суток.
Нужна ваша помощь , самому написать не вышло ( только для одномерного массива ).

[volvo]

Сортировка простой вставкой (немного измененная версия вот этого кода из 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[i];
      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);
{ ... }

Хоть двумерную, хоть трехмерную, какую хочешь, такую и передавай, процедура сортировки работает с "вытянутым в цепочку", строка за строкой, представлением.