Массив, Задача Опции

[Студентик13]

Привет всем.Есть задача но я немогу решить. Вина -безграмотность.Заранее благодарен.
Дан двухмерный массив, содержащий 5 строк и 3 столбца. Элементами массива являются вещественные числа. Упорядочить массив по неубыванию элементов первой строки.

[Студентик13]

То что ты не понял был запорченный русский при копировании почемуто испортился.Наверное виноват мод PascRUhet у меня был глюк с русским пришлось установить.
а прога вот:

Код

uses crt;
const
  M=5;N=3;
type
  Tmat=array[1..N,1..M] of integer;
var
  mat,str:tmat;
  i:string;
  schM,schN:integer;
begin
  clrscr;
    begin
      for schM:=1 to M do
        begin
          for schN:=1 to N do
            mat[schM,schN]:=schM*schN;
        end;
    end;
  writeln('nachal'inaya matrix ',M,'x',N,':');  
  for schM:=1 to M do
    begin
      for schN:=1 to N do
        write(mat[schM,schN]:5);
        writeln('');
write('dlia v'ivodo rezyltata nashmi Enter...');
  readln;
  writeln('konechniy rezyltat:');
  for schM:=1 to M do
    for schN:=1 to N do
      str[M-schM+1,schN]:=mat[schM,schN];
  for schM:=1 to M do
    begin
      for schN:=1 to N do
        write(str[schM,schN]:5);
        writeln('');
end;
write('Exit-Enter...'); readln;
end;
end.