Написать модуль, считающий выражение B*k*C+A, где А,В,С-матрицы.

unit matrix;
interface
const numbstrok=3;
      numbstolb=2;
type matrB=array [1..numbstrok,1..numbstolb] of real;
     matrC=array [1..numbstolb,1..numbstrok] of real;
     matrA=array [1..numbstrok,1..numbstrok] of real;
 procedure matrica(mB:matrB; mC:matrC; mA:matrA; Km:real; var mD:matrA);
 var im,jm,lm:byte;
implementation
 procedure matrica(mB:matrB; mC:matrC; mA:matrA; Km:real; var mD:matrA);
 begin
  for im:=1 to numbstrok do
   for jm:=1 to numbstolb do begin
    mB[im,jm]:=mB[im,jm]*Km;
    end;
 
  for im:=1 to numbstrok do
   for jm:=1 to numbstrok do begin
    mD[im,jm]:=0;
    for lm:=1 to numbstolb do
     mD[im,jm]:=mD[im,jm]+mB[im,lm]*mC[lm,jm];
    end;
 
  for im:=1 to numbstrok do
   for jm:=1 to numbstrok do
    mD[im,jm]:=mD[im,jm]+mA[im,jm];
 end;
end.

uses matrix;
const n=3;
      m=2;
type masB=array [1..n,1..m] of real;
     masC=array [1..m,1..n] of real;
     masA=array [1..n,1..n] of real;
var B:masB; C:masC; A,D:masA;
    mas,k:real;
    i,j,l:byte;
begin
 writeln('Vvedite koefficient K');
 readln(k);
 writeln('Zapolnite matricy A');
 for i:=1 to n do
  for j:=1 to n do begin
   readln(mas);
   A[i,j]:=mas;
  end;
 
 writeln('Zapolnite matricy B');
 for i:=1 to n do
  for j:=1 to m do begin
   readln(mas);
   B[i,j]:=mas;
  end;
 
 writeln('Zapolnite matricy C');
 for i:=1 to n do
  for j:=1 to m do begin
   readln(mas);
   C[i,j]:=mas;
  end;
 
 writeln('Rezultat raboti modulya');
 matrica(B, C, A, k, D);
 for i:=1 to n do
  for j:=1 to n do begin
  writeln(D[i,j])
 end;
 readln;
end.

uses matrix;
const n=3;
      m=2;
var B:matrB; C:matrC; A,D:matrA;
    mas,k:real;
    i,j,l:byte;
begin