сортировка двумерного массива

uses
  crt;
const
  str=6;{количество строк}
  sto=6;{количество столбцов}
var
  a:array [1..str,1..sto] of integer;
  i,j,k,temp:integer;
begin
  clrscr;
  {заполняем и выыводим массив}
  writeln('Исходная матрица:');
  for i:=1 to str do
  begin
    for j:=1 to sto do
    begin
      a[i,j]:=random(8)-4;
      write(a[i,j]:2,' ')
    end;
    writeln
  end;
  {сортируем матрицу построчно}
    for i:=1 to str do
      for j:=1 to sto do
        if odd(j)=false then
          for k:=j to sto do
            if (a[i,k]<a[i,j]) and (odd(k)=false) then
            begin
              temp:=a[i,k];
              a[i,k]:=a[i,j];
              a[i,j]:=temp
            end;
  {выводим матрицу}
  writeln('Полученная матрица:');
  for i:=1 to str do
  begin
    for j:=1 to sto do
      write(a[i,j]:2,' ');
    writeln
  end;
end.

uses
  crt;
var
  a:array [1..100,1..100] of integer;
  str,sto,i,j,k,temp:integer;
begin
  clrscr;
  writeln('Çàäàéòå êîëè÷åñòâî ñòðîê:');
  readln(str);
  writeln('Çàäàéòå êîëè÷åñòâî ñòîëáöîâ:');
  readln(sto);
  for i:=1 to str do
    for j:=1 to sto do
    begin
      writeln('Ýëåìåíò a[',i,',',j,']:');
      readln(a[i,j])
    end;
  {âûûâîäèì ìàññèâ}
  writeln('Èñõîäíàÿ ìàòðèöà:');
  for i:=1 to str do
  begin
    for j:=1 to sto do
      write(a[i,j]:2,' ');
    writeln
  end;
  {ñîðòèðóåì ìàòðèöó ïîñòðî÷íî}
    for i:=1 to str do
      for j:=1 to sto do
        if odd(j)=false then
          for k:=j to sto do
            if (a[i,k]<a[i,j]) and (odd(k)=false) then
            begin
              temp:=a[i,k];
              a[i,k]:=a[i,j];
              a[i,j]:=temp
            end;
  {âûâîäèì ìàòðèöó}
  writeln('Ïîëó÷åííàÿ ìàòðèöà:');
  for i:=1 to str do
  begin
    for j:=1 to sto do
      write(a[i,j]:2,' ');
    writeln
  end;
end.