Pascal. Сортировка.

[doctor D]

Помогите отсортировать:
"Нечетные столбцы по убыванию".

Буду очень благодарен

[Macmeprag]

for j:=1 to n do begin
  if j mod 2 <> 0 then
  for i:=1 to m-1 do
     for z:=i+1 to m do
        if a[i,j]<a[z,j] then begin
          tmp:=a[i,j];
          a[i,j]:=a[z,j];
          a[z,j]:=tmp;
        end;
end;

ну с типами должно быть все понятно?)

[doctor D]

Ну да, щас напишу - домыслю наверное) Спасибо большое за помощь)