Упорядочить строки матрицы по неубыванию значений наименьших элементов строк PASCAL

[sanji2010]

Упорядочить строки матрицы по не убыванию значений наименьших элементов строк. Необходимо отсортировать матрицу, найти в строке наименьшее значение и по ним отсортировать строки. Помогите пожалуйста

[sanji2010]

Cпасибо, сделал сам, вот, может кому пригодиться =)

uses crt;
const
l=100;
var
n,m,c,s,mn,i,j:integer;
a,b:array [1..l,1..l] of integer;
begin
clrscr;
writeln('Введите размерность матрицы');
write(' * Количество строк ');
readln(n);
write(' * Количество столбцов ');
readln(m);
 for i:=1 to n do
   for j:=1 to m do
    begin
    write('  a[',i,'.',j,']=');
    read(a[i,j]);
  end;
  writeln(' Введённая матрица');
   for i:=1 to n do
    begin
     for j:=1 to m do
      write(' ',a[i,j]) ;
      writeln;
     end;
 writeln('3.1 Сортировка строк матрицы по наименьшим элементам в строке');
   for i:=1 to n do
     begin
       mn:=a[i,1];
        for j:=1 to m do
        if a[i,j]<mn then mn:=a[i,j];
        a[i,m+1]:=mn;
     end;
     writeln('  Исходный массив с наименьшими элементами');
      for i:=1 to n do
       begin
        for j:=1 to m+1 do
        if j=m+1 then write('    ',a[i,j])
        else write(' ',a[i,j]);
        writeln;
       end;
     for i:=1 to n-1 do
      for s:=i+1 to n do
       if a[i,m+1]>a[s,m+1] then
        for j:=1 to m+1 do
         begin
          c:=a[i,j];
          a[i,j]:=a[s,j];
          a[s,j]:=c;
         end;
     writeln('  Строки по неубыванию минимальных элементов');
      for i:=1 to n do
       begin
        for j:=1 to m do
        write(' ',a[i,j]);
        writeln;
       end;
   write('Программа закончила свою работу, нажмите любую клавишу . . .');
   readkey;
end.