Bài tập Pascal - tính tổng các phần tử của mảng 2 chiều

program tinh_tong;
uses crt;
var a:array[1..50,1..50] of integer;
i,j,m,n,t:integer;
BEGIN
write(' nhap so hang m= '); readln(m);
write(' nhap so cot n= '); readln(n);
t:=0;
for i:=1 to m do
for j:=1 to n do
Begin
write(' phan tu a[',i,',',j,]= '); readln(a[i,j]);
t:=t+a[i,j];
End;
writeln('tong can tinh la: ',t:4);
readln;
END.