程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
  U% f, r7 A  J* y& `; L  z/ Cis
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
( R$ {* b& _* V4 H) y7 `        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
& p3 p/ I+ Y% c1 r$ b' C                inspect messageBox("Number Wrong...,",50,13)
% R2 @+ c4 A) \) K0 E                when 16 then
                        print "Yes";
                when 32 then
# _# Q( f; o; }+ K& M' }                        print "No";
- F& c9 g9 F9 R1 I7 V. k                else
9 _8 B5 a0 P5 t- T: W. F                        print "Cancel";
                end;
& ~) m3 A3 e( a5 u) k        EventController.stop;
3 Z7 Y6 J) S2 W6 \4 ]  Uend;
PartsTable.delete;
; U5 Y( o' D4 h5 ~# n1 x; M: p/ }6 jfor i:=1 to Number_Of_Machine loop
) @1 M3 Q$ Y( W( N- C  ]1 g7 ~        for j:=1 to Number_Of_Machine loop
8 V3 ?& S/ m3 Z+ y! s* L9 }- {                if j<i then
, G$ Q* L$ q( d  b# ^8 [                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
: ^- o$ \% W) L" d3 b                        if j=i then
* B) ~" G( ~: \! G( [# o                                D_From_To_Chart[j,i]:=0;
                        else
) x6 M' b1 o) ~; K8 ?                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
, C% H' K4 M$ H1 X) p) z6 z' u! N                                        EventController.stop;
                                end;
                        end;
9 z' C2 A9 u1 I% D& b                end;
; o) W& ~( N& _, a8 H        next;
. ~+ r  \3 d4 K" I: m$ ~) `next;

5 `6 U( ^) J( }2 G: ]' Rend;

  a2 z+ f# O- V5 o) l) ~* a    Lines :=0;
- z# u) j- X5 r$ P6 w) S        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
3 r2 Y) q; [8 _# W7 o                    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];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
9 {$ S- c6 `& g) a/ L, t                end;
4 w# D7 I+ s) Y4 {8 y' d$ b4 |" K        next;
        MachineName :=sprint("M",Rows);
+ e* ~1 d7 |0 @! r& q+ u        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]);
) c, e6 c! k' \2 m3 v3 }4 F0 Y        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
- }5 }- z( g& W) P" f       
        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]);
                Buf.Name :=BufName;
% [# N% H$ {& I# ~- d3 Q        Buf.Capacity :=5000;
3 j; X4 \& r8 a3 |        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
) {, j: q( O/ U  M1 ?$ Rnext;
end;
' a. t8 V, h7 z0 ^/ N! ~

五五

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

wudi

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