Sử dụng chương trình con tính tổng, tích 2 ma trận

uses crt;
type mang=array[1..10,1..10] of integer;
var
  a,b,s,p: mang;
  ha,ca,hb,cb,hp,cp: integer;
procedure nhap(var m: mang; var h,c: integer; ch: char);
var i,j: integer;
begin
  writeln('Nhap ma tran ',ch);
  write('  So hang: '); readln(h);
  write('  So cot : '); readln(c);
  for i:=1 to h do
    for j:=1 to c do
      begin
        write(ch,'[' ,i, ',' ,j, ']= ');
        readln(m[i,j]);
      end;
end;
procedure xuat(m:mang; h,c:integer; ch:char);
var i,j:integer;
begin
  writeln('Ma tran ',ch);
  for i:=1 to h do
    begin
      for j:=1 to c do write(m[i,j]:3);
      writeln;
    end;
end;
procedure tong(var a,b,t: mang; var h,c:integer);
var i,j:integer;
begin
  for i:=1 to h do
    for j:=1 to c do
      t[i,j]:= a[i,j]+b[i,j];
end;
procedure tich(var a,b,p: mang; var h,t,c: integer);
var i,j,k: integer;
begin
  for i:=1 to h do
    for j:=1 to c do
      begin
        p[i,j]:=0;
        for k:=1 to t do p[i,j]:=p[i,j]+a[i,k]*b[k,j];
      end;
end;
begin
  clrscr;
  nhap(a,ha,ca,'a');
  nhap(b,hb,cb,'b');
  xuat(a,ha,ca,'a');
  xuat(b,hb,cb,'b');
  if (ha=hb) and (ca=cb) then
    begin
      tong(a,b,s,ha,ca);
      xuat(s,ha,ca,'s');
    end
  else
    writeln('Khong the tinh tong 2 ma tran a va b');
  if (ca=hb) then
    begin
      tich(a,b,p,ha,ca,cb);
      xuat(p,ha,cb,'p');
    end
  else
    writeln('Khong the tinh tich 2 ma tran a va b');
  readln;
end.