Вычисление умножения двух матриц

unit mod_1;
interface
const nmax=7;{чтобы все 3 вошли на экран}
type Tmatr=array[1..nmax,1..nmax] of integer;
var n:byte;
procedure Vvod(var mt:Tmatr);
procedure Vyvod(mt:Tmatr;c:string);
procedure UmnMatr(m1,m2:Tmatr;var m:Tmatr);
implementation
procedure Vvod;
var i,j:byte;
begin
for i:=1 to n do
for j:=1 to n do
mt[i,j]:=1+random(10);
end;
 
procedure Vyvod;
var i,j:byte;
begin
writeln('Матрица ',c);
for i:=1 to n do
 begin
  for j:=1 to n do
  write(mt[i,j]:5);
  writeln;
 end;
end;
 
procedure UmnMatr;
var i,j,k:byte;
begin
for k:=1 to n do
for j:=1 to n do
  begin
   m[k,j]:=0;
   for i:=1 to n do
   m[k,j]:=m[k,j]+m1[k,i]*m2[i,j];
  end;
end;
end.

uses crt,mod_1;
var a,b,c:Tmatr;
begin
clrscr;
randomize;
repeat
write('Введите размер матриц от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
Vvod(a);
Vvod(b);
Vyvod(a,'A');
Vyvod(b,'B');
UmnMatr(a,b,c);
Vyvod(c,'C');
readln
end.