двумерная сортировка

[Оля163]

Здравствуйте, помогите пожалуйста написать программу сортировки двумерного массива на Delphi, только не методом пузырька.
Заранее спасибо)*

[Npwas]

Вот, смотри и изучай!!!

program MatrixSort;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Type
    matr = array  of array of integer;

 Var
  B:matr;
  N,M:integer;

{ЗАПОЛНЕНИЕ МАТРИЦЫ}
PROCEDURE CreateMatriza;
 Var
  i,j:integer;
 BEGIN
   For i:=0 to N-1 do
    For j:=0 to M-1 Do
      B[i,j]:=random(20);

 END;
{ОТОБРАЖЕНИЕ МАТРИЦЫ}
PROCEDURE ShowMatriza;
 Var
  i,j:integer;
 BEGIN
   For i:=0 to N-1 do
    Begin
      For j:=0 to M-1 Do
        Write(B[i,j],'     ');
      Writeln;
    End
 END;

{СОРТИРОВКА ВСТАВКАМИ}
PROCEDURE InsertionSort;
  Var
    A:matr;
    i,j,k,z:integer;
BEGIN
 Writeln;
 {СОЗДАНИЕ АНАЛОГИЧНОГО ДОП. МАССИВА}
 SetLength(A,N,M);
 For i:=0 to N-1 do
   For j:=0 to M-1 do
   A[i,j]:=B[i,j];
 {СОРТИРОВКА}
 For z:=0 to N-1 do
  For i:=0 to M-1 do
   Begin
    j:=i;
    While (j>0) and (B[z,j-1]>=A[z,i]) do
     Begin
      B[z,j]:=B[z,j-1];
      j:=j-1;
     End;
    B[z,j]:=A[z,i];
   End;
 {ВЫВОД МАССИВА B}
 Writeln('Resultat sortirovki metodom vstavok:');
 Writeln;
 For i:=0 to N-1 do
  Begin
   For j:=0 to M-1 do
    Write(B[i,j],'     ');
    Writeln;
  End
END;

{ТЕЛО}
BEGIN
  Write('Vvedite chislo strok:  ');
  Readln(N);
  Writeln;
  Write('Vvedite chislo stolbzov:  ');
  Readln(M);
  SetLength(B,N,M);
  Writeln;
  CreateMatriza;
  Writeln('Ishhodnaj matriza:');
  Writeln;
  ShowMatriza;
  InsertionSort;
  Readln;
END.