как умножить матрицу(3на4) на матрицу(4на3) в делфи?

[Ромка678]

как умножить матрицу(3на4) на матрицу(4на3) в делфи?

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

{процедура, осуществляющая умножение двух матриц}
{A размерность m*n}
{B размерность n*p}
{a,b – матрицы, которые будем умножать}
{KP – результирующая матрица}
{n –количество столбцов первой матрицы}
{m – количество строк первой матрицы}
{n – количество строк второй матрицы}
{p - количество столбцов второй матрицы}
procedure mult(a,b:typematrix; n,m:integer; var KP:typematrix);
var
   i,j,k:integer;
begin
   for i:=1 to m do
     for j:=1 to p do
        begin
           C[i,j]:=0;
             for k:=1 to n do
                C[i,j]:=C[i,j]+a[i,k]*b[k,j];
        end;
end;