Сложение/умножение матриц (дополнение)

uses crt;
const max=10;{максимальный размер матриц}
type Tmatr=array[1..max,1..max] of integer;{тип матриц}
procedure Vvod(var mt:Tmatr;var n:byte);{создание матриц}
var i,j:byte;
begin
for i:=1 to n do
for j:=1 to n do
mt[i,j]:=random(9)+1;
end;
 
procedure Vyvod(var m:Tmatr;n:byte;c:string);{вывод на экран, с-имя матрицы}
var i,j:byte;
begin
writeln(c,':');
for i:=1 to n do
  begin
    for j:=1 to n do
    write(m[i,j]:5);
    writeln;
  end;
writeln;
end;
procedure Trans(m1:Tmatr;n:byte; var m2:Tmatr);{получение транспонированной матрицы}
var i,j:byte;
begin
for i:=1 to n do
for j:=1 to n do
m2[i,j]:=m1[j,i];
end;
 
procedure UmnMatr(m1,m2:Tmatr;n:byte;var m:Tmatr);{умножение матрицы на матрицу}
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;
 
procedure SumMatr(m1,m2:Tmatr;n:byte;var m:Tmatr);{сложение матриц}
var i,j:byte;
begin
for i:=1 to n do
for j:=1 to n do
m[i,j]:=m1[i,j]+m2[i,j];
end;
 
var a,a1,b,b1,c,m1,m2:Tmatr;
    n:byte;
begin
clrscr;
randomize;
repeat
write('Razmer matric do ',max,'=');
readln(n);
until n in [1..max];
Vvod(a,n);
Vvod(b,n);
Vyvod(a,n,'Matrica A');
Vyvod(b,n,'Matrica B');
UmnMatr(a,b,n,m1);
Vyvod(m1,n,'Matrica M1=A*B');
write('Press Enter...');
readln;
 
end.