определитель матрицы

function DetMatrix(MPtr : MatrixPtr) : MatrixElement;
var
 TempPtr : MatrixPtr;
 i,j     : byte;
 Sum     : MatrixElement;
begin
 if IsSquareMatrix(MPtr) then begin
   if not IsSingleMatrix(MPtr) then begin
     TempPtr:= nil;
     Sum:= 0;
     for j:= 1 to GetMatrixCol(MPtr) do begin
       AssignMatrix(TempPtr,ExcludeVectorFromMatrix(MPtr,1,j));
       Sum:= Sum+IntPower(-1,j+1)*GetMatrixElement(MPtr,1,j)*DetMatrix(TempPtr);
     end;
     DeleteMatrix(TempPtr);
     DetMatrix:= Sum;
   end else DetMatrix:= GetMatrixElement(MPtr,1,1);
 end else DetMatrix:= 0;
end;