Ошибка в паскале!

[Firea]

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.

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

[k0tone]

Поправил:

Program sort;

  uses
    сrt;
 
  var
    a:array [1..10,1..10] of integer;
    b:array [1..100] of integer;
    n,m,e,j,i,h,t,k,o, max:integer;

  begin
    clrscr;
    write('введите количество строк');
    readln(m);
    write('введите количество столбцов');
    readln(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;
          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+1;
            end;
      end;
    for o:=1 to t do
    for i:=1 to 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('сортировка:');
    for i:=1 to t do
      begin
        gotoxy(k,15);
        write(b[i]);
        k:=k+5;
      end;

    readkey;
  end.

P.S. а что тот человек у которого ты программку скопировал не смог помочь?
P.P.S. в программке было только две ошибки, код представил в более крассивой форме