Сортировка элементов в матрице

[Lazy_Bitch]

Дана матрица, требуется отсортировать элементы каждого столбца по возрастанию. Не могу сообразить с процедурой сортировки

Program array;
const nrow=3;
ncol=4;
Type
 matrix=array [1..nrow,1..ncol] of integer;    
 vector=array [1..ncol] of longint;
var
 a:matrix; b:vector;

{Процедура ввода данной матрицы}
Procedure input (var a:matrix);
var i, j:integer;
Begin
writeln ('BBeguTe eJIeMeHTbI MaccuBa: ');
for i:=1 to nrow do       
for j:=1 to ncol do
readln(a[i,j]);
end;

{Процедура вывода исходной матрицы}
Procedure output (const a:matrix);
var i, j:integer;
begin
for i:=1 to nrow do
 begin
for j:=1 to ncol do     
write (a[i,j]:7);             
writeln;
 end;
readln;
end;

{Процедура сортировки}
Procedure sort(var a:matrix; var b:vector);
var i, j, x, min:integer;
Begin                  
for j:=1 to ncol-1 do
begin
min:=j; x:=b[j]
for i:=j+1 to ncol do  
if b[i]<x then 
begin
min:=i;
x:=b[min];
end;
b[min]:=b[j];
b[j]:=x;
for i:=1 to nrow do
begin                
x:=a[i,j];
a[i,j]:=a[i,min];
a[i,min]:=x;
end;
end;
End;

BEGIN          
input(a);  
output(a); 
sort(a,b);    
output(a);  
END.

[Greblin]

Сортировка пузырьком, тип vector не нужен

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

+ измените имя программы: array - зарезервированное слово
+ в считывание read вместо readln

[Lazy_Bitch]

Спасибо огромное