Нечетные столбцы матрицы упорядочить по возрастанию, а четные по убыванию.

uses crt;
type matr=array[1..7,1..7] of real;
procedure Sort(var z:matr;m,n:byte);
var i,j,k:byte;
    b:real;
begin
for j:=1 to n do
if odd(j) then
 begin
  for i:=1 to m-1 do
  for k:=i+1 to m do
  if z[i,j]>z[k,j] then
   begin
    b:=z[i,j];
    z[i,j]:=z[k,j];
    z[k,j]:=b;
   end
 end
else
 begin
  for i:=1 to m-1 do
  for k:=i+1 to m do
  if z[i,j]<z[k,j] then
   begin
    b:=z[i,j];
    z[i,j]:=z[k,j];
    z[k,j]:=b;
   end
 end;
writeln('Отсортированная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(z[i,j]:7:2);
  writeln;
 end;
writeln;
end;
var a,b,c:matr;
    i,j:byte;
begin
clrscr;
writeln('Исходная матрица A:');
for i:=1 to 6 do
 begin
  for j:=1 to 7 do
   begin
    a[i,j]:=1.5*sin(3*i)+3*cos(1.273*j);
    write(a[i,j]:7:2);
   end;
  writeln;
 end;
writeln;
Sort(a,6,7);
write('Press Enter...');
readln;
writeln('Исходная матрица B:');
for i:=1 to 7 do
 begin
  for j:=1 to 7 do
   begin
    b[i,j]:=(i*i-4*j-16*cos(i*j))*sin(1.5*i);
    write(b[i,j]:7:2);
   end;
  writeln;
 end;
writeln;
Sort(b,7,7);
write('Press Enter...');
readln;
writeln('Исходная матрица C:');
for i:=1 to 3 do
 begin
  for j:=1 to 4 do
   begin
    c[i,j]:=i*exp(sin(j));
    write(c[i,j]:7:2);
   end;
  writeln;
 end;
writeln;
Sort(c,3,4);
write('Press Enter...');
readln
end.