Помогите разобраться в алгоритме

[sda1005]

Необходимо найти обратную матрицу. Нашел вот такую функцию, но не смог в ней разобраться. Напишите пожалуйста комментарии построчно. Буду очень всем признателен.

function ReverseMatrix(MPtr : MatrixPtr) : MatrixPtr;

var

TempPtr     : MatrixPtr;

Determinant : MatrixElement;

begin

if MPtr <> nil then begin

   TempPtr:= nil;

   AssignMatrix(TempPtr,CreateAppendixMatrix(MPtr));

   AssignMatrix(TempPtr,TransponeMatrix(TempPtr));

   Determinant:= DetMatrix(MPtr);

   if (TempPtr = nil) or (Determinant = 0) then begin

     DeleteMatrix(TempPtr);

     ReverseMatrix:= nil;

     Exit;

   end;

   AssignMatrix(TempPtr,MultipleMatrixOnNumber(TempPtr,1/Determinant));

   ReverseMatrix:= TempPtr;

end else ReverseMatrix:= nil;

end;

[Аватар]

Это с модулем Matrix? А сам модуль есть, или только функция, которая не компилируется?

[sda1005]

Исходная матрица сначала выводится в стрингрид, а потом уже отдельной кнопкой необходимо считать из этого стрингрид и найти обратную матрицу.