程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
* o1 ?& ^3 @( w# [/ g        MachineName,BufName:string;
        Machine,Buf:object;
do
7 {  V) g+ Z5 {/ x+ w% i        if Number_Of_Machine/=D_From_To_Chart.YDim then
4 s# Z  N. Z3 K: k; F, G1 \                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
) W6 v# ]2 i7 P) Y- T) S/ V" u. S                        print "Yes";
+ N' |# ?8 M! w7 b9 R, O1 v7 E/ G                when 32 then
                        print "No";
                else
                        print "Cancel";
# }; P; {, V/ G; Z' E8 L                end;
6 h( _3 L) a! W3 j- A        EventController.stop;
end;
5 K2 a( K) h/ l+ hPartsTable.delete;
5 m5 j2 l* ^1 t, }" o0 Gfor i:=1 to Number_Of_Machine loop
2 b* b/ x6 G5 O  ~5 m, D        for j:=1 to Number_Of_Machine loop
4 ?5 _$ L3 n4 [7 G9 k% o$ F6 B: C                if j<i then
3 V% m4 M2 y& `7 i0 [                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
+ t8 x/ }4 a1 V3 K' W                        end;
                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
9 j2 v( J* q2 C! Q/ c/ E# {                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
                end;
6 ~" @( s9 r% X/ p; y6 R        next;
next;

end;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
/ V6 P) ~' |8 T7 }1 R% P2 S0 \        MachineSequence[2,i]:=Rows;
! i7 v9 j% A# A4 F$ _5 d            for j:1 to Number_Of_Machine loop
. }+ i0 Q, ~0 \# o0 B$ ^* m                    if W_From_To_Chart[j,Rows]>0 then
; L' k! n/ g2 a5 P4 H- A                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
& Q. O$ G% g4 ?. L3 \                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
: ~7 e8 x' {8 M; v8 ], E                        PartsTable[5,Lines]:=Rows;
# [. ~9 P* ^" `) y* H                        PartsTable[6,Lines]:=j;
                end;
        next;
/ Y6 ~) r. \+ E0 p2 m3 _9 B        MachineName :=sprint("M",Rows);
- w0 N: M6 C' v- y9 k        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]);
+ F) I; Q; U; D& @0 \        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
: P- S' _3 U* c* v2 J! e       
        BufName :=sprint("BF",Rows);
        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]);
$ U; J: C9 u# ~6 y                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
1 z8 j% b; F; Q8 L) b0 w5 c$ Z        Buf.ProcTime :=0;
- V) U0 _: C* {: P, g/ b+ Y        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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