Giúp khắc phục lỗi Tràn Stack khi sd CTCon!

[changbietnua]

type mang=array[1..100,1..100] of integer;
var a,b,c:mang;
m,n,t:integer;
Procedure nhap(var x:mang;p,q:integer);
Var i,j:integer;
begin
for i:=1 to p do
for j:=1 to q do
begin
write('nhap a[',i,',',j,']=');
readln(a[i,j]);
end;
end;
Procedure inmang(x:mang; p,q:integer);
Var i,j:integer;
begin
writeln('mang la:');
for i:=1 to p do
begin
for j:=1 to q do write(a[i,j]:3);
writeln;
end;
end;
Procedure nhan(x,y:mang; var z:mang);
Var i,j,k:integer;
begin
for i:=1 to m do
for j:=1 to t do
for k:=1 to n do z[i,j]:=z[i,j]+x[i,k]*y[k,j];
end;

BEGIN
write('nhap m,n,t:');readln(m,n,t);
nhap(a,m,n); nhap(b,n,t);
inmang(a,m,n); inmang(b,n,t);
nhan(a,b,c); inmang(c,m,t);
readln
END.

Mọi người xem giùm bài này: thực hiện nhân hai ma trận, in 2 ma trận ban đầu và ma trận tích.
Lỗi: tràn stack với thủ tục in mảng và nhân.
Tại sao lại như vậy, cách khắc phục?