程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
2 H, ]: X6 z9 r: Z9 R  ~4 Vis
, P  r! c  C6 O; W# _/ B; \( {$ t        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
' Q7 p' t1 x- n        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
' p5 Z- n9 h: C, X% E8 |                inspect messageBox("Number Wrong...,",50,13)
: g* D% c, D9 n' q9 i5 l                when 16 then
" B! n9 [3 L  i% D4 |2 ~+ S8 N: z' |                        print "Yes";
8 R8 b, h* S5 `, P& x$ d                when 32 then
                        print "No";
# N* x* w* t( d* d                else
                        print "Cancel";
8 j  r' T& l; v9 q+ M0 `: z  @                end;
        EventController.stop;
9 @! G: ?6 [% T" d. ^- \. Cend;
8 I9 }% w0 r! N5 dPartsTable.delete;
" u. W& Z8 w" M. s  u9 ifor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
  f7 Z/ \6 h3 A                if j<i then
+ b$ ]1 l, A$ c3 U2 w2 Q                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
+ f, Z! ~* s5 W/ ^8 S! L- I4 n                else
. t# n+ J  [* J8 a# \$ J                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
8 W- S5 h$ c& z. X: D" |                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
1 P, c( `7 U3 `: j0 d( O, n                                end;
" M3 i  k5 t' H! J+ A6 T3 w1 G) Z                        end;
                end;
        next;
next;
: h8 s( U! N, }3 Z0 u& o
end;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
2 R4 K9 M* x# K% m8 ]% i7 H  M        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
1 G/ K2 W/ f, C2 [5 {4 b                            Lines :=Lines+1;
                        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;
" M+ {, Z+ ^6 ]4 b                        PartsTable[6,Lines]:=j;
                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;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
# K& m; _% Z- g7 d0 \# b        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]);
8 U0 a* v- P  S0 c) X/ R                 Buf.Name :=BufName;
6 U# j4 B1 N) {7 M6 g        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
* S& E7 K1 v- y" i' {/ l        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
: v& C- j+ R, X3 W# H+ p

五五

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

wudi

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