Нужно исправить программу по сортировкам.

[Virtual575]

Вот условие:
Дана действительная матрица A размерности (m x n) . Если среднее арифметическое элементов первой строки превышает среднее арифметическое элементов всей матрицы, то упорядочить столбцы матрицы по возрастанию максимальных элементов столбцов методом линейного выбора с обменом. В противном случае матрицу оставить без изменения.
Я незнаю как здесь упорядочить столбцы матрицы по возрастани макс. элементов методом линейного выбора с обменом..Помогите!!!

program VP_2;
uses CRT;
type
matr = array [1..50,1..50] of real;
var
vr : array [1..50] of real;
i, j, k, i_min, m, n, c : integer;
a, b : matr;
sr1, sr2, buf, min, max : real;
begin
clrscr; {ohcistka}
{vvod matrizi}
writeln('Vvedite razmernost matrizi:');
write('Chislo strok M:');readln(m);
write('Chislo stolbzov N:');readln(n);
for i:=1 to m do
for j:=1 to n do
begin
write('a[',i,j,']:');
readln(a[i,j]);
end;
clrscr;

{schitaem srednee arifmeticheskoe}
sr1:=0;
for i:=1 to n do
sr1:=sr1+a[1,i];
sr1:=sr1/n;

sr2:=0;
for i:=1 to m do
for j:=1 to n do
sr2:=sr2+a[i,j];
sr2:=sr2/(n*m);

if sr1>sr2 then
begin
for k:=1 to n do
begin
{sozdaem vektor iz elementov stolbzov}
for i:=1 to n do
vr[i]:=a[i,k];
{sortirovka}
for i:=1 to n-1 do
begin
min:=vr[i];
i_min:=i;
for j:=i to n do
if vr[j]>vr[j+1] then
begin
min:=vr[j];
i_min:=j;
end;
buf:=vr[i];
vr[i]:=min;
vr[i_min]:=buf;
end;
{sozdaem otsortirovannii stolbez}
for i:=1 to n do
b[i,k]:=vr[i];
end;

{vivod rezultata}
writeln( ' Ishodnaya matriza : ' );
for i:=1 to m do
begin
for j:=1 to n do
write(' ',a[i,j]:5:1);
writeln;
end;

writeln;
for j:=1 to n do
begin
max:=a[1,j];
for i:=1 to n do
if a[i,j]>max then
max:=a[i,j];
writeln(' Maximalnie elementi ',j,' stolbca : ',max) ;
b[i,j]:=max;
end;

writeln;
writeln( ' Otsortirovannaya matriza : ' );
for i:=1 to m do
begin
for j:=1 to n do
write(' ',b[i,j]:5:1);
writeln;
end;

end
else
writeln( ' Matriza ne izmenilas!!! ' );
readln;
end.