Задача на сортировку

const n=3; m=4;
type 
index=1..n;
element=array[1..m] of real;
mas=array[index] of element;   
procedure sort(var a:mas);
var i,j,k:index;
x:element;
begin
for i:=1 to n-1 do begin
k:=i;
x:=a[i];
for j:=i+1 to n do 
if a[j]>x then begin k:=j; x:=a[j]
end;
a[k]:=a[i];
a[i]:=x
end;
end;
var a:mas;
begin
randomize;
for i:=1 to n do begin
for j:=1 to m do begin
a[i[j]]:=random(10);
write(a[i[j]]:3);
writeln;
end;
end;
sort(a);
for i:=1 to n do begin
for j:=1 to m do begin
write(a[i[j]]:3);
writeln;
end;
end;
end.

const
l=100;
var
n,m,c,s,mn,i,j:integer;
a,b:array [1..l,1..l] of integer;
begin
 
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;
 
end.