程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
9 @! m! V- q; u; x+ {, Wis
        i,j,Rows,Lines:integer;
/ j5 h3 g; \+ s  L9 m2 ^( n' h- g        MachineName,BufName:string;
) g3 e, s# R% P( F' b        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
5 o6 V; D6 F, n8 B3 S4 x* t: W                        print "No";
9 J0 D; w* [' K4 d# `                else
) U3 w! |; F, x7 S9 u                        print "Cancel";
                end;
/ O% b6 L0 d4 j/ M; C        EventController.stop;
end;
PartsTable.delete;
+ S# O! ~7 M5 [& E7 e, P0 v! wfor i:=1 to Number_Of_Machine loop
8 M3 ^# T2 g' h7 t) N        for j:=1 to Number_Of_Machine loop
                if j<i then
$ N+ Z6 H6 F# J# K2 M( v                        if D_From_To_Chart[j,i]<=0 then
" S& w0 [4 f+ B' u                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
, S; \: i7 q( z1 A; X2 e                        end;
! K8 \5 c4 n' L% {% M! @# J7 P                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
; V! q1 p  n+ U2 K                        else
+ J* r7 U- s4 u# J% B# D0 u2 z                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
4 q. `+ d$ s  h# ]: ?/ R0 {( m1 R( n. b                                end;
                        end;
                end;
$ t# j: g% t4 a* D- L5 z! ^  }6 I  L        next;
# _: z9 }1 B. z& Z0 Enext;
, T8 p8 m. ^& B- V3 j0 [
* O& S: @! c% u( N5 Xend;
; D/ z$ ^- w, k( I
# {0 l( b8 `- c! E/ q2 w    Lines :=0;
# T7 i" v. P! I        for i:1 to Number_Of_Machine loop
- @. E% g6 c2 |        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
& C# A% T( j9 h: z, `1 ?6 B        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"));
/ U- Z- r' o' ]/ b) A( |                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
4 O& X0 `/ P/ T5 S1 F; w' G                        PartsTable[5,Lines]:=Rows;
1 H, c0 K$ e* G( Y8 a                        PartsTable[6,Lines]:=j;
                end;
& o  c' S$ A$ e& F, z; j8 Y        next;
' s+ M/ {3 U; C# W* Y) t' i( l" B0 k  G        MachineName :=sprint("M",Rows);
. U' E2 J. p! m* @: j        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]);
: G1 [# g$ |' r0 s, u& Y6 N        Machine.Name :=MachineName;
3 d9 ]$ y# \8 M3 e        Machine.ProcTime :=5;
# |# N" N0 ~  U/ i3 V0 i, Q        Machine.label :=sprint("machine_",Rows);
; I1 {  k: r0 C: x% {1 q% E! |        Machine.ExitCtrl :=ref(Leave);
: n# m* g4 m, E! [  I+ _0 W       
/ ]  ~  p1 t+ }7 s# @* _  W& t        BufName :=sprint("BF",Rows);
- w8 r. b' ]8 L& S9 p' }6 ^6 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]);
) B; i! y6 K$ y                 Buf.Name :=BufName;
6 @  A3 H" g% n: D        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
  a" ~0 A) }" w        .MaterialFlow.Connector.connect(Buf,Machine);
0 M" N. b9 O5 C  W2 P; X+ Tnext;
end;

五五

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

wudi

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