Дан двухмерный массив А(m,n). Отсортировать нечетные элементы по убыванию для всей матрицы в порядке по столбцам

var a:array[1..100,1..100] of Integer;
m,n,i,j,k,r:Integer;
begin
Write('m=');
Read(m);
Write('n=');
Read(n);
Writeln('Сгенерированная матрица:');
Randomize;
for i:=1 to m do
 begin
 for j:=1 to n do 
  begin
  a[i,j]:=Random(51);
  Write(a[i,j]:4);
  end;
 Writeln;
 end;
 
for i:=1 to n do
for j:=1 to m-1 do
for k:=j+1 to m do
if odd(a[k,i]) and odd(a[j,i]) and (a[k,i]>a[j,i]) then
begin
r:=a[j,i];
a[j,i]:=a[k,i];
a[k,i]:=r;
end;
 
Writeln('Полученная матрица:');
for i:=1 to m do
begin
for j:=1 to n do Write(a[i,j]:4);
Writeln;
end;
Readln;
end.

var a:array[1..100,1..100] of Integer;
m,n,i,j,k,r:Integer;
begin
Write('m=');
Read(m);
Write('n=');
Read(n);
Writeln('Введите элементы массива:');
 
for i:=1 to m do
for j:=1 to n do 
 begin
 Write('a[',i,',',j,']=');
 Read(a[i,j]);
 end;
 
Writeln('Исходная матрица:');
for i:=1 to m do
begin
for j:=1 to n do Write(a[i,j]:4);
Writeln;
end;
 
for i:=1 to n do
for j:=1 to m-1 do
for k:=j+1 to m do
if odd(a[k,i]) and odd(a[j,i]) and (a[k,i]>a[j,i]) then
begin
r:=a[j,i];
a[j,i]:=a[k,i];
a[k,i]:=r;
end;
 
Writeln('Полученная матрица:');
for i:=1 to m do
begin
for j:=1 to n do Write(a[i,j]:4);
Writeln;
end;
Readln;
end.