请大家帮我看看，这段程序是哪有问题？谢谢(20分)

type
TFigureWorkSheet=array[1..4,1..4] of byte;
var
Triada:tfigureworksheet=((1,1,1,1),
(0,0,0,0),
(0,0,0,0),
(0,0,0,0));
var
FigureWorkSheet:TFigureWorkSheet


var
i,j,m:byte;
begin

m:=0;
for j:=1 to 4 do
for i:=1 to 4 do
begin
if FigureWorkSheet[j,i]>0 then
begin
m:=m+1;
showmessage(inttostr(m));
break;
end;
end;

他不执行showmessage(inttostr(m));

if FigureWorkSheet[j,i]>0 then
条件成立吗？

FigureWorkSheet没有初始值
用if Triada[j,i]>0 then试试

FigureWorkSheet没有初始值
用if Triada[j,i]>0 then试试

多人接受答案了。