程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
( W! s7 w5 ^( M' ]3 F        MachineName,BufName:string;
  p7 i: ]6 u$ f, {, D5 u        Machine,Buf:object;
9 S" i. u! G5 }1 N9 udo
# C$ p) ~5 I! s/ n8 E        if Number_Of_Machine/=D_From_To_Chart.YDim then
. f4 Z6 m8 I  K1 d                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
) P. _1 _0 y$ j3 m4 E7 Y                when 32 then
5 k! N7 |. Z6 K3 s8 I3 Y. D                        print "No";
* p$ e8 k7 ~6 X% p$ T1 \                else
& m6 z/ J: j2 O- d5 ]' c- W1 J                        print "Cancel";
7 F* A# \, z6 r, e  v& E6 |: |0 }, U                end;
        EventController.stop;
/ C4 L) E. v; Q5 {end;
; n( b5 F+ o8 ~PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
8 S# B, H+ D3 f. z                        if D_From_To_Chart[j,i]<=0 then
. z. K/ |" i/ l                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
  e3 H" |0 e- S* r; y2 }! g9 _                        if j=i then
                                D_From_To_Chart[j,i]:=0;
( `; l) K9 i: E, d8 k0 t& n) z0 A                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
+ o- O' T* w2 T$ F                                end;
                        end;
/ }! K( l5 {" v7 [                end;
# `# _  }& f0 f3 D: D9 g' u, |        next;
2 q. ?) S3 h( f; v) c6 F0 enext;
6 h1 ~3 k' I1 V( ^8 X  _
+ d. F3 d; e: _+ \( J$ b% Cend;
; F2 ]$ w1 U4 |5 p5 [) }* f
) Q$ [' H7 ]5 `5 {0 \: |    Lines :=0;
6 N- u( I% x2 C0 }4 R# Y        for i:1 to Number_Of_Machine loop
- E* Y. }& A$ H2 o1 p        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
9 r% J% f' m4 X3 b2 @        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    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];
0 a$ D; e& T+ o: y                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
0 `0 ^4 {7 }) M5 ~& M  ^* f                end;
        next;
( N) Y2 [' b' _, t        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]);
# a. y5 t+ o3 ~6 e, {& \0 H        Machine.Name :=MachineName;
- p4 N/ P& w# }' G- H        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
) e! F) |. {% S       
        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]);
# q5 V/ M$ V( F9 ]# O: [, H                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
6 m6 k( C$ r7 Q4 M4 W        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
. r8 D) P9 h; w$ kend;
2 w4 N& U! l/ F- m0 V5 m

五五

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

wudi

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