Матрицы

[Doublefaced]

Даны матрицы А(i,j,k), B(i,j,k) C(I,j,k). Написать подпрограмму перемножающая эти матрицы.

Помогите пожалуйста нужно сделать

[ОДИНОЧЕСТВО В СЕТИ]

type

  MatrixPtr = ^MatrixRec;

  MatrixRec = record

    MatrixRow   : byte;

    MatrixCol   : byte;

    MatrixArray : pointer;

  end;



(* Функция умножает матрицу на матрицу *)





function MultipleMatrixOnMatrix(MPtr1,MPtr2 : MatrixPtr) : MatrixPtr;

var

TempPtr : MatrixPtr;

i,j,k   : byte;

begin

if (MPtr1 <>  nil) and (MPtr2 <> nil) then begin

   TempPtr:= CreateMatrix(MPtr1^.MatrixRow,MPtr2^.MatrixCol);

   if TempPtr = nil then begin

     MultipleMatrixOnMatrix:= nil;

     Exit;

   end;

   for i:= 1 to TempPtr^.MatrixRow do

     for j:= 1 to TempPtr^.MatrixCol do

       for k:= 1 to MPtr1^.MatrixCol do

         SetMatrixElement(TempPtr,i,j,GetMatrixElement(TempPtr,i,j)+

           GetMatrixElement(MPtr1,i,k)*GetMatrixElement(MPtr2,k,j));

   MultipleMatrixOnMatrix:= TempPtr;

end else MultipleMatrixOnMatrix:= nil;

end;