程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
; ^4 @. y5 v# H! t2 J6 M; \                when 16 then
                        print "Yes";
0 M9 p* K( G1 _2 V6 {& I" i. O                when 32 then
                        print "No";
                else
                        print "Cancel";
1 z4 N1 I3 P5 ~4 U+ f                end;
) v. }3 H& j4 k! j$ S        EventController.stop;
end;
PartsTable.delete;
; R7 U) Q$ O: g- @/ Cfor i:=1 to Number_Of_Machine loop
  y" H6 B8 _* \1 H4 ]( G  F        for j:=1 to Number_Of_Machine loop
                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
& a: F% h/ M: E. X' y3 i" @* J' K                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
% ?) l3 O$ @& a- ]                else
9 Z$ i' v0 @. [' X                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
8 Y. _: b( @. I) H$ r9 e9 v                                end;
0 N9 i- {7 j0 t' f) `                        end;
& b2 y4 {2 b1 u5 O4 l% W                end;
; V. Q/ b2 y- C' a        next;
2 q7 q$ y- u3 G- s6 U( {next;

end;
) C  y8 n3 s+ Z0 K
    Lines :=0;
        for i:1 to Number_Of_Machine loop
5 l& n# M3 T' v4 d9 V        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
) f0 ^$ u, o7 p( b: o. m3 q        MachineSequence[2,i]:=Rows;
0 e+ j6 n0 _) u9 F' F            for j:1 to Number_Of_Machine loop
2 @# ~  F) @- ^& s' f                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
8 ^- P3 R5 a3 O1 @                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
& A, [$ R+ C: P) J0 G1 z4 C                        PartsTable[6,Lines]:=j;
2 e+ ~8 y3 S  U* g, F3 Q$ p; g                end;
        next;
        MachineName :=sprint("M",Rows);
        Machine:=.MaterialFlow.SingleProc.createObject(current,X_pos_init+D_From_To_Chart[Number_Of_Machine+1,i],Y_pos_init+D_From_To_Chart[Number_Of_Machine+2,i]);
        Machine.Name :=MachineName;
; q/ K' T4 a& l7 o5 p* C* {        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
5 \7 a: Y& o% d. E" `5 q       
% m; d$ I0 M6 N7 Z/ s5 O1 F8 f        BufName :=sprint("BF",Rows);
- y. f' h$ ~1 H        Buf:=.MaterialFlow.Buffer.createObject(current,X_pos_init+D_From_To_Chart[Number_Of_Machine+1,i]-35,Y_pos_init+D_From_To_Chart[Number_Of_Machine+2,i]);
                Buf.Name :=BufName;
) C8 w0 ^# \) X        Buf.Capacity :=5000;
$ l5 }1 E0 r3 l7 }! L. h$ ^        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
- n$ b2 I( z" y* X7 |' w# i5 Jend;

五五

end 数量不对 且后面两个for循环 赋值没有等号。。。

wudi

老师，我再问一下，哪里的end数量不对啊，我是新手