Сортировка столбцов сатрицы

[Noooob]

Здраствуйте не могли бы вы помочь в решение данной задачи.
Дана матрица 5х5.В столбцах найти наименьший элемент.Сортировать столбцы в матрице по возрастанию наименьших элементов.

procedure sortir(var a:matrix)
var i,j,k;integer;
sor:integer;
begin
for i:=1 to n do
for j:=m downto 2 do
for k:=1 to j-1 do
if a[k,i]>a[k+1,i];
then begin
sor:=a[k,i];
a[k,i]:=a[k+1,i];
a[k+1,i]:=buf;
end;
end;

что то с сортировкой не выходит(