При помощи процедуры перемножить матрицы

  {процедура, осуществляющая умножение двух матриц}
           {A размерность m*n}
           {B размерность n*p}
           {a,b – матрицы, которые будем умножать}
           {KP – результирующая матрица}
           {n –количество столбцов первой матрицы}
           {m – количество строк первой матрицы}
           {n – количество строк второй матрицы}
           {p - количество столбцов второй матрицы}
           procedure ymnog(a,b:typematrix; n,m:integer; var KP:typematrix);
           var
              i,j,k:integer;
           begin{ymnog}
                 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;{ymnog}

  {процедура, осуществляющая умножение двух матриц}
           {A размерность m*n}
           {B размерность n*p}
           {a,b – матрицы, которые будем умножать}
           {KP – результирующая матрица}
           {n –количество столбцов первой матрицы}
           {m – количество строк первой матрицы}
           {n – количество строк второй матрицы}
           {p - количество столбцов второй матрицы}
           procedure ymnog(a,b:typematrix; n,m:integer; var KP:typematrix);
           var
              i,j,k:integer;
           begin{ymnog}
                 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;{ymnog}