[NIch]

Сортировка пузырьком...

Код:

var
 Arr : array of array of word;
 i, j, n, m, t: word;
begin
 SetLength(Arr, n,m);//Установить размер массива
 //Сортировка строк
 for j:=0 to n-1 do
  for i:=0 to n-j-1 do
   if Arr[i, m] > Arr[i+1, m] then
   begin
    t := Arr[i, m];
    Arr[i, m] := Arr[i+1, m];
    Arr[i+1, m] := t;
   end;
 //По аналогии делается сортировка столбцов
 for j:=0 to m-1 do
  for i:=0 to m-j-1 do
   if Arr[n, i] > Arr[n, i+1] then
   begin
    t := Arr[n, i];
    Arr[n, i] := Arr[n, i+1];
    Arr[n, i+1] := t;
   end;