Задача: создать копию массива в динамической памяти

unit matrix;
interface
uses crt;
type
   TELint=longint;
   TElem = double;
   TLine = array[1..maxint div sizeof(TElem)] of TElem;
   PLine = ^TLine;
   TCol = array[1..maxint div sizeof(PLine)] of PLine;
   PCol = ^TCol;
   PCmatr=^Cmatr;
   Cmatr=object
   private
     Fstr:word;
     Fstc:word;
     procedure F(err:word);
   public
   constructor Create(n,m:word);
   destructor done();
   constructor Copy(matr:PCmatr);
   destructor destroy();
   end;
 
implementation
   procedure Cmatr.F(err:word);
   begin
 
   end;
   constructor Cmatr.Create(n,m:word);
   var i,j:TELint;
       matrica:PCol;
       error:boolean=true;
   begin
   getmem(matrica,n*sizeof(PLine));    //выделяем память под строки
   if matrica<>NIL then
   begin
      for j:=1 to m do
      begin
         getmem(matrica^[j],m*sizeof(TElem));//выделяем память под столбцы
         if matrica^[j]=NIL then   //если памяти недостаточно, то аварийный выход из цикла
         begin
            error:=false;
            break;
         end;
      end;
      if not(error) then for j:=j-1 downto 1 do freemem(matrica^[j],m*sizeof(TElem));
//освобождаем память
   end
   else
   begin
     freemem(matrica,n*sizeof(PLine));
     error:=false;
   end;
   end;
   destructor Cmatr.done();
   begin
   end;
   constructor Cmatr.copy(matr:PCmatr);
   begin
    //здесь должен быть код
   end;
   destructor Cmatr.destroy();
   begin
   end;
end.

 Getmem(M1,n*sizeof(integer));
  for k:=1 to n do
    M1^[k]:=Random(100);
 
  Getmem(M2,n*sizeof(integer));
  for k:=1 to n do
    M2^[k]:=M1^[k];