Сортировать четные столбцы по возрастанию

[Gevorg7]

Последний раз помогите пожалуйста
Сортировать четные столбцы по возрастанию.
заранее спасибо

[Don Karleone]

  Mas: array [1..10,1..5] of integer;
  T, i, j, k: integer;

  ...

  for j:=1 to 5 do
    if not odd(j)
      then
          begin
             // позырьковая сортировка j-го столбца
             for i:=1 to 9 do
                for k:=1 to 10 - i do
                   if Mas[k,j] > Mas[k+1,j]
                     then
                           begin
                               T:=Mas[k,j];
                               Mas[k,j]:=Mas[k+1,j];
                               Mas[k+1,j]:=T;
                           end;
          end;

вроде так, хотя я не проверял.

[Gevorg7]

program sor;
uses crt;
var
mas:array[1..10,1..5] of integer;
b,n,m,t,i,j,k:integer;
begin
clrscr;
write (' Vvedite kol-vo strok'); read(m); { Ввод}
write (' vvedite kol-vo stolbcov'); read(n);
for i:=1 to m do
for j:=1 to n do
begin
b:=2+b;
gotoxy(b,3+i); read (mas[i,j]);
b:=2+b;
if j=n then b:=0;
end;


for j:=1 to 5 do
if not odd(j)
then
begin
// позырьковая сортировка j-го столбца
for i:=1 to 9 do
for k:=1 to 10 - i do
if Mas[k,j] > Mas[k+1,j]
then
begin
T:=Mas[k,j];
Mas[k,j]:=Mas[k+1,j];
Mas[k+1,j]:=T;
end;
end;



for i:=1 to m do
for j:=1 to n do
begin
b:=2+b;
gotoxy(b,15+m+i); write (mas[i,j]); {Вывод}
b:=6+b;
if j=n then b:=0
end;
readkey;
end.

CTRL+F9

Vvedite kol-vo strok =2
vvedite kol-vo stolbcov=2

1 2
3 4

1 0
3 0

что неправильно в программе ??????

[Gevorg7]

заранее спасибо