程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
  H8 R, k3 @9 J  u( M" fis
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
5 Y+ W0 F" u3 a0 K        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
* K) p( c8 V; O0 @                else
* m, `' v2 P: t& U8 R                        print "Cancel";
                end;
        EventController.stop;
5 G- j  K- l6 O1 u. e$ l2 T  Nend;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
& o0 N( n: c0 ?% }+ r7 P                if j<i then
# s0 I6 e1 O" f; D0 _                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
- E! B! N, d; X0 W1 ]' H" Z, b                        end;
                else
2 U+ t' u* ^. h+ N* M& I- P                        if j=i then
. g0 M" F8 d* T3 p                                D_From_To_Chart[j,i]:=0;
  Q: o7 H! Q9 J( L5 Z. m% U6 }                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
4 s+ T) A8 p5 j4 V, Y: W                        end;
! ~5 c9 x$ i; u! \                end;
        next;
next;

8 D- t. N' v  h) I& `! Z* pend;
9 }3 t* u" O" @' G2 C. `3 W
    Lines :=0;
9 d3 M5 {2 a. B# Y* `& Q        for i:1 to Number_Of_Machine loop
3 L3 k- _0 }- P/ Z* u8 V3 e        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
( A* R! R: M& C! a: j) {7 [  o9 U        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
) U  H& `. a! y4 p$ g                    if W_From_To_Chart[j,Rows]>0 then
$ Y$ O; ~& b9 ~8 G! u7 ]) v                            Lines :=Lines+1;
* m0 d( B* G# Z0 v$ o' [8 y6 d                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
0 Y. |8 N" }. B                        PartsTable[3,Lines]:=sprint("Parts");
2 Q& R* I% _1 L/ S; l, q                        PartsTable[5,Lines]:=Rows;
+ M1 j" b+ F& l* M                        PartsTable[6,Lines]:=j;
                end;
% P/ T* h. c' i        next;
( \: b8 o9 L8 {" W        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;
7 M" W- m3 _1 g0 u        Machine.ProcTime :=5;
/ m! m8 I' P* _; V2 e  X, o/ l* j3 r        Machine.label :=sprint("machine_",Rows);
6 i' f1 g/ E+ H, R) Z: N9 {# O        Machine.ExitCtrl :=ref(Leave);
' s6 o) d! K- T& u) a: M4 @& F" f# C       
        BufName :=sprint("BF",Rows);
7 M4 D- H1 }; O; d& H; }  k$ A8 \& x        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;
        Buf.Capacity :=5000;
7 I1 O% i2 n+ G' I3 U        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
5 d& ]6 C, A! y  w- Xnext;
end;

五五

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

wudi

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