Delphi

решите задачу плиз

Разработать программу сортировки матрицы размером N X
Nтак, чтобы элементы в каждой отсортированной матрицы распологались по возрастанию и ни один элемент в i-ой строке не был больше любого элемента в i+1 строке. Сортировку целесообразно выполнить над одномерным массивом из N*N элементов, который "Накладывается" на исходную матрицу.

Вообще-то тут не просят решать за тебя - тут просят помощи. Тем более задача элементарная:
1) Переписываешь все элементы в одномерный массив длинной N*N...
2) Сортируешь его любым метождом
3) Переписываешь массив обратно (первые N элементов в 1-ю строку, вторые во вторую и тд)

вообще нечего делать... так уж и быть:

const N = 10;                     // размер матрицы<br />
type tmatrix = array [1..N,1..N] of integer;        // тип - матрица<br />
procedure matrix_sort(var matrix:tmatrix);       // сортировка<br />
var<br />
  i,j,k,l:integer;                                <br />
  temp:array [1..N*N] of integer;                    // одномерный массив<br />
begin<br />
  for k:=0 to N*N - 1  do begin                        // переписываем матрицу в массив<br />
    i:=k div N + 1;<br />
    j:=k mod N + 1;<br />
    temp[k+1]:=matrix[i,j];<br />
  end;<br />
  for i:=N*N-1 downto 2 do                          // соритровка (например "Пузырёк")<br />
    for j:=1 to i do begin<br />
      if temp[j] > temp[j+1] then begin<br />
        k:=temp[j];<br />
        temp[j]:=temp[j+1];<br />
        temp[j+1]:=k;<br />
      end;<br />
    end;<br />
  for k:=0 to N*N - 1  do begin                    // переписываем элементы обратно<br />
    i:=k div N + 1;<br />
    j:=k mod N + 1;<br />
    matrix[i,j]:=temp[k+1];<br />
  end;<br />
end;

а у кого - нибудь есть все команды на Delphi