Класс матрица: ОШИБКА Out of memory - Free Pascal

 procedure showtable(var ns1,ns2:integer; var mas:PMatrix);
  var i,j: byte;
      a:single;
      st:String;
      qw,qw1:Telem;
      x,y:word;
 
   begin
    textcolor(white);
 
     if (ns1=0) or (ns2=0) then
      begin
      clrscr;
      writeln(nad1);
      readln;
      end
 
     else
       begin
       clrscr;
 
        for i:=1 to ns1 do
         begin
          writeln;
           for j:=1 to ns2 do

               begin

                  { Âûâîä  }
                   mas^.get(i,j,qw);

                       if qw<0 then qw:=-qw;
                         Str(trunc(qw),st);
                    mas^.get(i,j,qw1);
                          if (length(st)=3) and (qw1>0)  then write('':3);  //3
                          if (length(st)=3) and (qw1<0)  then write('':2);  //2
                          if (qw1<0) and (length(st)=2)  then write('':3);  //3
                          if (qw1<0) and (length(st)=1)  then write('':4);  //4
                          if (qw1>=0) and (length(st)=2) then write('':4);  //4
                          if (qw1>=0) and (length(st)=1) then write('':5);  //5
 
                          write(qw1:2:3);

                      {
                            if (i=q) and (j=w) then
                             begin
                              textbackground(10);
 
                               write(mas^[i]^[j]:2:3);
 
                              textbackground(0);
                              textcolor(15);
                             end
                             else
 
                     textbackground(blue);
                                        }
 
                  { ÂÛÂÎÄ }

               end;
 
       end;
       gotoxy(1,1);

     readln;
   end;

   textcolor(15);
  end;

 {$N+}
unit MeninMod;
interface
      type
          TReal=real;
          TSignedInt=integer;
          TUnsignedInt=word;
          TLongSignedInt=longint;
      TIndex1=TUnSignedInt;
      TIndex2=TUnSignedInt;
 
      TElem=single;
      PLine=^TLine;
      TLine=array[1..1] of TElem;
      PCol=^TCol;
      TCol=array[1..1] of PLine;
 
          PMatrix=^CMatrix;
      CMatrix=object
    private
      Mas:PCol;
      Low1,High1:TIndex1;
      Low2,High2:TIndex2;
      Lines:TUnSignedInt;
      Cols:TUnSignedInt;
          Tmasix:TElem;
      n,m:TUnSignedInt;
 
          Procedure Failure(Errnum:TUnSignedInt); { }
    public
      constructor Create(ns1,ns2:TIndex2); {  }
      destructor Destroy;{(l1,h1:TIndex1;l2,h2:TIndex2);   }
          procedure Put(i:TIndex1;j:TIndex2;x:Telem);  {  }
      procedure Get(i:TIndex1;j:TIndex2; var x:Telem); {  }
    {  function GetLow1:TIndex1;
          function GetLow2:TIndex2;
      function GetHigh1:TIndex1;
      function GetHigh2:TIndex2; }
      function GetLines:TUnSignedInt;
      function GetCols:TUnSignedInt;
 
    end;
    Implementation
  {$R-}

  uses crt;
 
  const
   Selem=SizeOf(Telem);
   SegmentSize=65520;

constructor CMatrix.Create(ns1,ns2:TIndex2);
 var
  i: TUnSignedInt;
 
 begin
  if (ns1<0) or (ns2<0) then failure(1)
   else
   begin
 
  GetMem(mas,ns1*sizeof(PLine));
 
    for i := 1 to ns1 do
     GetMem(mas^[i],ns2*sizeof(TElem));
 
   end;
 end;

{***********************************************************
 
 function CMatrix.GetLow1:TIndex1;
  begin
   GetLow1:=Low1;
  end;
 
 function CMatrix.GetLow2:TIndex2;
 begin
   GetLow2:=Low2;
 end;
 
 function CMatrix.GetHigh1:TIndex1;
  begin
  GetHigh1:=High1;
  end;
 
 function CMatrix.GetHigh2:TIndex2;
  begin
   GetHigh2:=High2;
  end;
                     }

 function CMatrix.GetLines:TUnSignedInt;
  begin
   GetLines:=Lines;
  end;
 
  function CMatrix.GetCols:TUnSignedInt;
   begin
    GetCols:=Cols;
   end;

 procedure Cmatrix.Put(i:TIndex1; j:TIndex2; x:Telem);

 begin
   if (i<0) or (i>m) then
    Failure(5) else
     if (j<0) or (j>n) then
      Failure(6) else
       Mas^[i]^[j]:=x;
  end;
 
 procedure   CMatrix.Get(i:TIndex1; j:TIndex2; var x:Telem); 
 begin
   if (i<0) or (i>m) then
    Failure(7)
        else
         if (j<0) or (j>n) then
           Failure(8)
            else
    x:=Mas^[i]^[j];
 end;
 
Procedure CMatrix.Failure(Errnum:TUnSignedInt); 
 begin
  clrscr;
  writeln('Error : ');
 case Errnum of
  1: Writeln(' No enough memory ..');
  2: Writeln(' Wrong borders ..');
  3: writeln(' Nothing to copy ..');
  4: writeln(' Invalid index of the row ..');
  5: writeln(' Invalid index of the column ..');
 end;
Halt(1);
 
end;

 destructor CMatrix.Destroy; 
 
 var i:TUnSignedInt;
  begin
   for i:=1 to Lines do freemem(Mas^[i],longint(cols)*Selem);
 end;
 
end.