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

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

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

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

Код

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('íà÷.ìàòðèöà ',M,'x',N,':');  {matrix reloded}
  for schM:=1 to M do
    begin
      for schN:=1 to N do
        write(mat[schM,schN]:5);
        writeln('');
{ïåðåñòàíîâêà ñòðîê}
write('äëÿ âûâîäà ðåçóëüòàòà íàæìèòå Enter...');
  readln;
  writeln('êîíå÷íûé ðåçóëüòàò:');
  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('äëÿ âûõîäà íàæìèòå Enter...'); readln;
end;
end.

Проверь пожалуйста