Помогите Люди Добрые Горит Pascal

[baomen]

Помогите решить!?
вывести матрицу случайных чисел от -50 до 50 размерностью 7х7 сортированную по убыванию,а снизу точно такую же!Плиzz

[Новенький]

как можно отсортировать двумерный массив?
Я вот отсортировал построчно, т.е. каждая строка отсортирована по убыванию:

Код: Выделить всё

uses crt;
var matr:array[1..7,1..7]of integer;
    i, j, k, l, chis1, chis2:integer;
begin
  randomize;
  clrscr;
  writeln('Исходная матрица:');
  for i:=1 to 7 do
    begin
      for j:=1 to 7 do
        begin
          matr[i,j]:=random(101)-50;
          write(matr[i,j]:4);
        end;
      writeln;
    end;
  writeln('отсортированная матрица:');
  l:=1;
  while l<>8 do
    begin
      for i:=1 to 7 do
        for j:=1 to 7 do
          if matr[l,i]>matr[l,j] then begin
                                          chis2:=matr[l,i];
                                          matr[l,i]:=matr[l,j];
                                          matr[l,j]:=chis2;
                                       end;

      l:=l+1;
    end;
  for i:=1 to 7 do
    begin
      for j:=1 to 7 do
        write(matr[i,j]:4);
      writeln;
    end;
  readln;
end.

[baomen]

Спасибо огромное!не перевелись еще Люди на Руси!!!