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

Uses crt;
Const
  mmax = 100;
  nmax = 100;
Var
  a: array[1..mmax,1..nmax] of integer;
  b: array[1..mmax] of integer;
  i,j,m,n,min: byte;
 
Procedure Swap(var x,y: integer); //Меняет местами значения переменных
  var buf: integer;
  begin
    buf:=x;
    x:=y;
    y:=buf
  end;
 
Procedure SwapLines(x,y: byte);  //Меняет местами строки
  var j: byte;
  begin
    For j:=1 to n do Swap(a[x,j],a[y,j])
  end;
 
Begin
  Clrscr;
  Randomize;
  Readln(m,n);
  For i:=1 to m do
    begin
      min:=1;
      For j:=1 to n do
        begin
          a[i,j]:=random(101)-50;
          Write(a[i,j]:4);
          If a[i,j] < a[i,min] then min:=j  //Поиск индекса столбца наименьшего элемента строки
        end;
      Writeln;
      b[i]:=a[i,min]  //Присваивание наименьшего эл. строки соответствующему эл. массива (1я строка - 1й элемент)
    end;
  Writeln;
 
  {Сортировка выбором. Сортируются элементы в массиве и соответсвующие им строки}
  For i:=1 to m-1 do
    begin
      min:=i;
      For j:=i+1 to m do
        If b[j] < b[min] then  min:=j;
      Swap(b[i],b[min]);
      SwapLines(i,min)
    end;
 
  For i:=1 to m do
    begin
      For j:=1 to n do write(a[i,j]:4);
      Writeln
    end;
  Readkey
End.

Uses crt;
Const
  mmax = 100;
  nmax = 100;
Var
  a: array[1..mmax,1..nmax] of real;
  b: array[1..mmax] of real;
  i,j,m,n,min: byte;
 
Procedure Swap(var x,y: real); //Меняет местами значения переменных
  var buf: real;
  begin
    buf:=x;
    x:=y;
    y:=buf
  end;
 
Procedure SwapLines(x,y: byte);  //Меняет местами строки
  var j: byte;
  begin
    For j:=1 to n do Swap(a[x,j],a[y,j])
  end;
 
Begin
  Clrscr;
  Randomize;
  Readln(m,n);
  For i:=1 to m do
    begin
      min:=1;
      For j:=1 to n do
        begin
          a[i,j]:=random*100-50.0;
          Write(a[i,j]:6:0);
          If a[i,j] < a[i,min] then min:=j  //Поиск индекса столбца наименьшего элемента строки
        end;
      Writeln;
      b[i]:=a[i,min]  //Присваивание наименьшего эл. строки соответствующему эл. массива (1я строка - 1й элемент)
    end;
  Writeln;
 
  {Сортировка выбором. Сортируются элементы в массиве и соответсвующие им строки}
  For i:=1 to m-1 do
    begin
      min:=i;
      For j:=i+1 to m do
        If b[j] < b[min] then  min:=j;
      Swap(b[i],b[min]);
      SwapLines(i,min)
    end;
 
  For i:=1 to m do
    begin
      For j:=1 to n do write(a[i,j]:6:0);
      Writeln
    end;
  Readkey
End.