Отсортировать нечетные столбцы массива по возрастанию. Сортировка прямой выбор- Pascal(Паскаль)

program sort;
const 
n=5;
m=6;
var
a :array[1..n,1..m] of integer;
s,i,j,t :integer;
begin
randomize;
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(10);
 
for s:=1 to m do
if odd(s) then 
begin
for i:=1 to n-1 do
for j:=i+1 to n do
begin
 if a[i,s] < a[j,s] then
  begin
  t:=a[i,s];
  a[i,s]:=a[j,s];
  a[j,s]:=t;
  end;
end;
end;
 
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j],' ');
writeln;
end;
end.