Действия над матрицами. (Delphi)

[ekzobyte]

Задача - программа, выполняющая разные действия с матрицами.

Функция для перемножения матриц, mm1 и nn1 - размеры первой матрицы, mm2 и nn2 - второй. Считает, но неправильно. Помогите найти ошибку.

function mult_matr(aa, ab : matr) : matr;
 var
   i, j, k : integer;
begin
 SetLength(Result, mm1, nn2);
   for i := 0 to mm1 - 1 do
   for j := 0 to nn2 - 1  do
     begin
        Result[i,j] :=0;
         for k := 0 to nn1 - 1 do
           Result[i,j] := Result[i,j] + aa[i,k] * ab[k,j];
     end;
end;

Функция для нахождения обратной матрицы. Этот код мне подсказали, прошу, если можете, объясните его (Функция detr - находит определитель, minor - минор)

function obrt_matr(aa : matr) : matr;
 var
   i, j, z : integer;
   x : real;
begin
 x := detr(aa);
 if x = 0
  then begin
        ShowMessage('Матрица не имеет обратной');
        exit;
       end;
 SetLength(Result, Length (aa),Length(aa));
 for i := 0 to length(aa)-1 do
  begin
    case i of
     0 : z := 1;
     else if odd(i)
       then z := -1
       else z := 1;
    end;
    for j := 0 to length (aa)-1 do
      begin
       Result[i,j] := z * detr(minor(aa, i+1 , j+1 )) / x;
       z := -z
      end;
  end;
end;

[ekzobyte]

ну подскажите что нибудь