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

uses crt;
const n=3;
       m=5;
type Tmatr=array[1..n,1..m] of integer;
procedure Vvod(var mt:Tmatr;c:string);
var i,j:byte;
begin
writeln('Введите ',n*n,' элементов матрицы ',c);
for i:=1 to n do
for j:=1 to m do
 begin
  write('el[',i,',',j,']=');
  readln(mt[i,j]);
 end;
clrscr;
end;
 
procedure Vyvod(var mt:Tmatr;c:string);
var i,j:byte;
begin
writeln(c,':');
for i:=1 to n do
  begin
    for j:=1 to m do
    write(mt[i,j]:5);
    writeln;
  end;
writeln;
end;
 
procedure SumMatr(m1,m2:Tmatr;var m:Tmatr);
var i,j:byte;
begin
for i:=1 to n do
for j:=1 to m do
m[i,j]:=m1[i,j]+m2[i,j];
end;
 
procedure RazMatr(m1,m2:Tmatr;var m:Tmatr);
var i,j:byte;
begin
for i:=1 to n do
for j:=1 to m do
m[i,j]:=m1[i,j]-m2[i,j];
end;
 
var a,b,c1,c2:Tmatr;
begin
clrscr;
randomize;
Vvod(a,'A');
Vvod(b,'B');
Vyvod(a,'Matrica A');
Vyvod(b,'Matrica B');
write('Press Enter...');
readln;
RazMatr(m1,m2,c1);
Vyvod(c1,'Matrica C1=A*B-B*A');
SumMatr(m1,m2,c2);
Vyvod(c2,'Matrica C2=A*B+B*A');
write('Press Enter...');
readln
end.