程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
/ o& J0 [% `" T8 l& e* ~is
) p/ H& K) j7 p) B! d        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
6 n3 Y! ?2 U! r4 y        Machine,Buf:object;
do
9 [6 l7 E3 `$ k9 I$ V0 ~        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
' c# o4 e6 d8 j                        print "No";
1 D8 ?* X$ \' S" [* H4 f. O                else
1 F$ d" C8 l- C8 @- Y$ S# I; G                        print "Cancel";
                end;
2 h: m8 V' b/ t& ]2 c3 K7 X* r        EventController.stop;
end;
PartsTable.delete;
  x3 |$ p2 ]9 {for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
, H$ R: F1 j. T1 ]* C8 o. S3 Q                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
& E. R1 ~* u+ ^5 L) i% _                        end;
% |* a6 l- p! P+ U! t% [                else
3 ^( l6 V* d: L2 O8 [3 F                        if j=i then
                                D_From_To_Chart[j,i]:=0;
( i6 X/ Q- @8 t9 d7 |& D                        else
                                if D_From_To_Chart[j,i]<=0 then
9 c1 D3 W% J2 j                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
  |) \, Y+ U4 ]0 t  y* Q! s  Z) F                                end;
8 R+ |: a. Y% T( P9 Z& e# @                        end;
4 f% h# U+ z5 L+ b6 s                end;
        next;
next;
+ a% y2 g- K) s  i% L
end;

/ `; i3 M1 v+ j    Lines :=0;
        for i:1 to Number_Of_Machine loop
) r" ?' Z$ |2 u  g6 b0 z3 A. U        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
. ~7 I2 b# U# c' T  y/ H4 P$ e                    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];
  V+ J( h# Q8 B2 h( f2 B                        PartsTable[3,Lines]:=sprint("Parts");
$ k4 F( x7 e* p8 X3 T                        PartsTable[5,Lines]:=Rows;
# A+ j; s0 C+ Y  H                        PartsTable[6,Lines]:=j;
5 H2 I& F1 @2 G) j1 [: Z                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;
4 P) Y+ H1 {- @9 m# Z3 y9 P! a        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
  e4 @6 D) x& i+ g7 P' D3 ]/ D$ t/ V        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]);
# g* f) g1 \; k1 l                 Buf.Name :=BufName;
) L8 L1 u# X+ q- S        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
4 ?5 t2 g5 v4 v7 G7 Inext;
end;

五五

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

wudi

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