Модуль "матрица" и сортировка пузырьком

unit matrix;   {Realizaciya klassa matrica na osnove dvumernogo dinamicheskogo massiva}
Interface
type
    tbyte=byte;
    tint=integer;
    telem=real;
    tcol=array [1..1] of telem;
    trowl=^tcol;
    trow=array [1..1] of trowl;
    tmass=^trow;
    tmas=^Matr;
    bol=boolean;
    Matr=object
               Private                  {Closed part}
                m:tmass;
                str,stl:tint;
                procedure Error (err:TByte);
               Public                   {Opened part}
                constructor Init(pstr:tint; pstl:tint); {Create}
                destructor Kill;                        {Destroy}
                function IsTab:bol;                     {is created?}
                function GetElem(i:tint; j:tint): Telem;
                function Getrow: Tint;
                function Getcol: Tint;
                procedure Rand;
                procedure Zero(var Mx:tmas);
                procedure Put(i:Tint; j:tint; x:telem);
                end;
Implementation
uses crt;
 
constructor Matr.Init(pstr:tint; pstl:tint);
const sizemem=65536;
var p,i:tint;
    needstr,needstl:longint;
    e:bol;
begin
e:=true;
i:=0;
str:=pstr;
stl:=pstl;
if (str<1) or (stl<1) then Error(1) else
  begin
  needstr:=longint(stl)*sizeof(telem);
  needstl:=longint(str)*sizeof(trowl);
  if (needstl<maxavail) and (needstl<sizemem) then
    begin
    getmem(m,needstl);                            {videlenie pamati}
    for p:=1 to str do
      if e and (needstr<maxavail) and (needstr<sizemem)
        then
          begin
          getmem(m^[p],needstr);
          i:=i+1;
          end
        else e:=false;
    end
  else e:=false;
  end;
if not e then
  begin
  Error(2);
  if i>0 then for p:=1 to i do freemem(m^[p],needstr);
  freemem(m,needstl);
  m:=nil;
  end
else for i:=1 to str do
  for p:=1 to stl do m^[i]^[p]:=0;
end;
 
 
destructor Matr.Kill;
var p:Tint;
    needstr,needstl:longint;
    e:bol;
begin
e:=true;
if not IsTab then Error(4)
else if (str<1) or (stl<1) then Error(1) else
     begin
     needstl:=longint(str)*sizeof(trowl);
     needstr:=longint(stl)*sizeof(telem);
     for p:=1 to str do freemem(m^[p],needstr);
     freemem(m,needstl);
     end;
str:=0;
stl:=0;
m:=nil;
end;
 
function Matr.IsTab:bol;
begin
if (m=nil) then IsTab:=false else IsTab:=true;
end;
 
function Matr.GetElem(i:Tint; j:Tint):telem;
begin
if not IsTab then Error(4)
else if (i<0) or (i>str) or (j<0) or (j>stl) then Error(3)
     else GetElem:=m^[i]^[j];
end;
 
function Matr.Getrow;
begin
if not IsTab then Error(4)
else Getrow:=stl;
end;
 
function Matr.Getcol;
begin
if not IsTab then Error(4)
else Getcol:=str;
end;
 
procedure Matr.Rand;
var a,i,j: Tint;
begin
     if not IsTab then Error(4)
     else
     begin
        randomize;
        for i:=1 to str do
            for j:=1 to stl do
            begin
            a:=-35+random(135);
            m^[i]^[j]:=a;
            end;
        end;
end;
 
procedure Matr.Zero;
var i,j: integer;
begin
     if not IsTab then Error(4)
     else
     begin
          for i:=1 to str do
              for j:=1 to stl do
              m^[i]^[j]:=0;
     end;
end;
procedure Matr.Put(i:Tint; j:Tint; x:Telem);
begin
if not IsTab then Error(4)
   else if (i<0) or (i>str) or (j<0) or (j>stl) then Error(3)
   else m^[i]^[j]:=x;
end;
 
procedure Matr.Error(err:Tbyte);
begin
write('ERROR!. ');
case err of
 1: writeln('Nepravilno zadany razmery tablicy');
 2: writeln('Nedostatochno pamjati');
 3: writeln('Necorrectno zadany indeksy');
 4: writeln('Tablici net');
 end;
 readln;
end;
end.

program Sort;
uses crt, matrix;
type Tkey=array [1..1] of Tint;
 
procedure BubbleSort(Mx:tmas);
var fl:bol;
    i,j:TInt;
    a:Tmas;
    rows,cols:Longint;
begin
rows := Mx^.getrow;
cols := Mx^.getcol;
{a:=Matrix^.}
for i:=1 to cols do
    for j:=1 to rows do
While fl do