Двумерный массив, помогите пожалуйста!

[adaptes]

я написал программу которая просто выводит матрицу. но мне надо ее доделать так, чтобы все элементы в упорядочились в столбцах по убыванию
язык: Delphi

program Project6;
{$APPTYPE CONSOLE}
uses
  sysutils,
  windows;
label sle;
const n=4;
par=(n*4);
type matriz=array[1..n,1..n] of integer;
var i,j:integer;
mas:matriz;
im:array[1..par] of integer;
procedure vvod(var vmas:matriz);
begin
setconsolecp (1251);
setconsoleoutputcp (1251);
writeln('вводим элементы массива. расмерность [',n,',',n,']');
for i:=1 to n do
for j:=1 to n do
begin
write('введите элемент [',i,',',j,']=');
readln(vmas[i,j]);
end;
end;
procedure print(vmas:matriz);
begin
writeln('ваш массив имеет вид');
for i:=1 to n do
begin
for j:=1 to n do
begin
write(' ',vmas[i,j],' ');
end;
writeln;
end;
end;
begin
vvod(mas);
print(mas);
writeln('программа закончена. нажмите enter.');
readln;
end.

[Stilet]

По идее так:

for i:=1 to n do begin
 for j:=1 to n do begin
  for k:=1 to n do
   if mas[k,j]<mas[k,i] then begin
    l:=mas[k,j]; mas[k,j]:=mas[k,i]; mas[k,i]:=l;
   end;
 end;
end;

Ну и переменные l,k добавь в integer;

[adaptes]

По идее так:
Код:

for i:=1 to n do begin
for j:=1 to n do begin
for k:=1 to n do
if mas[k,j]<mas[k,i] then begin
l:=mas[k,j]; mas[k,j]:=mas[k,i]; mas[k,i]:=l;
end;
end;
end;

Ну и переменные l,k добавь в integer;

мне нужно сортировку столбцов, а это сортировка строк. что нужно поменять, чтобы была сортировка по столбцам?

[Stilet]

k и j в циклах поменяй местами. Я мог и ошибиться.