В двумерном массиве отсортировать элементы строки с минимальным средним значением методом простого обмена

const
  nmax=100;
var
  a: array[1..nmax,1..nmax] of integer;
  i,j,n,m,sum,k,tmp: integer;
  sr_min: real;
begin
  randomize;
  write('Введите размеры матрицы n,m: ');
  readln(n,m);
  writeln('Матрица: ');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(99)+1;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
  {находим среднее первой строки
  и присваиваем его значение минимальному среднему}
  sum:=0;
  for j:=1 to m do
    sum:=sum+a[1,j];
  sr_min:=sum/m; k:=1;
  
  writeln('Среднее значение 1-й строки = ',sr_min:5:2);
  
  {сравниваем среднее каждой строки с минимальным}
  for i:=2 to n do
  begin
    sum:=0;
    for j:=1 to m do
    begin
      sum:=sum+a[i,j];
    end;
    if (sum/m)<sr_min then
    begin
      sr_min:=sum/m; {определяем минимальное среднее}
      k:=i;  {и индекс его строки}
    end;
    writeln('Среднее значение ',i,'-й строки = ',sum/m:5:2);
  end;
  writeln('Минимальное среднее - в ',k,'-й строке и = ',sr_min:5:2);
  
  {производим сортировку простым обменом (линейный)}
  for i:=1 to m-1 do
    for j:=i+1 to m do
    if a[k,i]>a[k,j] then
    begin
      tmp:=a[k,i];
      a[k,i]:=a[k,j];
      a[k,j]:=tmp;
    end;
  
  writeln('Полученный массив:');
  for i:=1 to n do
  begin
    for j:=1 to m do
      write(a[i,j]:4);
    writeln;
  end;
  readln;
end.