Ошибка!

[YooooO!!!]

Program sort;
uses crt;
var a:array[1..10,1..10]of integer;
var b:array[1..100]of integer;
n,m,e,j,i,h,t,k,o, max:integer;
begin
clrscr;
write('введите количество строк');read(m);
write('введите количество столбцов');read(n);
for i:=1 to m do
for j:=1 to n do
begin
gotoxy(1,3);write('vvedite a [',i,',',j,']');
read(a[i,j]);gotoxy(16,3);write('   ');
gotoxy(e+5*j,4+i);write(a[i,j]);
e:=5+e;
if j=n then e:=0;
begin
if odd(i)then
begin
b[t+1]:=a[i,j];
gotoxy(1,10);writeln('сортируемые элементы масива');
gotoxy(k,11);write(b[t+1]);
k:=k+6;
t:=t+6;
end;end;
end;
for o:=1 to t do
for i:=1to t-1 do
if b[i]<b[i+1]then
begin
h:=b[i];
b[i]:=b[i+1];
b[i+1]:=h;
end;
k:=1;
gotoxy(1,14);write('cortirovka');
for i:=1 to t do begin
gotoxy(k,15);write(b[i]);
k:=k+5;
end;
readkey;
end.

Написал програму а работает не коректно..незнаю в чем ошибка....нужно в нечетных столбцах расположить цифры по убыванию...тоесть отбор самих цифр есть а вот сортировать он нехочет.....исправте пожалуста ошибку где она есть или допишите ...сил нет умаелся с этой програмой!