程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
  ]# B% H0 k3 ois
+ p( f- r: k# S4 Z6 @        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
4 c2 }! \: W! f3 ], |* }        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
* M$ Z, ~3 t; ?7 O) q; N: d                when 16 then
                        print "Yes";
                when 32 then
) w* K0 Z0 g, z" D+ _                        print "No";
                else
5 R8 t2 J, U0 C$ ]- G( N                        print "Cancel";
6 x( g9 K% K' i5 s! N  j                end;
        EventController.stop;
4 {1 B! o8 d$ O3 Zend;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
& ^' L3 K7 _# e% ~8 s' l3 v9 \                        if D_From_To_Chart[j,i]<=0 then
7 ]% B' X9 `1 v$ m6 a* C                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
" }* K3 F! m5 ?  ^6 b                        end;
5 ~$ g- {  y2 r0 e6 P                else
/ g/ \5 w$ N' h& f) D% B                        if j=i then
: N! F( H( N" W- G9 L                                D_From_To_Chart[j,i]:=0;
; H& s/ h7 v- y" M' l                        else
; S$ y7 L' H/ D/ G/ R- r. {                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
8 Z# E5 q  n4 v' ^1 H* u! _                end;
        next;
next;

. G1 v4 S- r7 T! \* L6 s5 v' fend;
/ x$ k- z/ H( n# n& ]$ E
    Lines :=0;
5 F& {9 s) v/ k1 D        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
2 e# f& G. v5 {# S8 W% l1 L. ]( P                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
+ |& J5 l, w4 |. Y- v( ?4 P+ U                        PartsTable[3,Lines]:=sprint("Parts");
: }9 U: c# ?; D8 e, C! Y/ V2 ^                        PartsTable[5,Lines]:=Rows;
! b6 [# b4 B  m" a. l8 x                        PartsTable[6,Lines]:=j;
                end;
5 k- S6 D6 T% x+ k3 E$ c+ f& t  X        next;
+ H$ A- a* ^/ I        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;
$ E9 d3 n) R! n9 ]# L        Machine.ProcTime :=5;
9 [, w' f) F# e9 R# z        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
3 Q: Z0 L8 a  ?- R        BufName :=sprint("BF",Rows);
& v2 P1 f! i4 D2 M+ s' V: p        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;
/ C3 `8 C1 j# d$ W1 u' b8 X& H        Buf.Capacity :=5000;
6 I0 ]6 I1 J, z2 f  C: E        Buf.ProcTime :=0;
! H$ K  R1 F3 ?1 h        .MaterialFlow.Connector.connect(Buf,Machine);
* P6 D% s) s, _. s5 D, B% Nnext;
end;

五五

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

wudi

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