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

uses
  crt;
const
  str=3;{êîëè÷åñòâî ñòðîê}
  sto=3;{êîëè÷åñòâî ñòîëáöîâ}
var
  a:array [1..str,1..sto] of integer;
  i,j,count,temp,tempi,tempj:integer;
  fl:boolean;
begin
  clrscr;
  {çàïîëíÿåì è âûâîäèì ìàòðèöó}
  textbold;
  writeln('Èñõîäíàÿ ìàòðèöà:');
  textnormal;
  for i:=1 to str do
  begin
    for j:=1 to sto do
    begin
      a[i,j]:=random(8)-4;
      if odd(a[i,j]) then
        textcolor(4)
      else
        textcolor(2);
      textbold;
      write(a[i,j]:2,' ')
    end;
    writeln;
    textcolor(0)
  end;
  {ñîðòèðóåì ÷åòíûå ïî çíà÷åíèþ â ìàòðèöå ïîñòðî÷íî}
  repeat
    count:=0;
    fl:=false;
    for i:=1 to str do
      for j:=1 to sto do
      begin
        if (not fl) and (not odd(a[i,j])) then
        begin
          tempi:=i;
          tempj:=j;
          fl:=true
        end;
        if (not odd(a[i,j])) and (a[i,j]<a[tempi,tempj]) and fl then
        begin
          temp:=a[tempi,tempj];
          a[tempi,tempj]:=a[i,j];
          a[i,j]:=temp;
          inc(count)
        end;
        if not odd(a[i,j]) then
        begin
          tempi:=i;
          tempj:=j
        end;
      end;
  until
    count=0;
  {âûâîäèì ìàòðèöó}
  writeln('Ïîëó÷åííàÿ ìàòðèöà:');
  for i:=1 to str do
  begin
    for j:=1 to sto do
    begin
      if odd(a[i,j]) then
        textcolor(4)
      else
        textcolor(2);
      textbold;
      write(a[i,j]:2,' ');
    end;
    writeln
  end;
end.