程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
2 ~/ W% Z, d  A: `is
        i,j,Rows,Lines:integer;
- Z7 W$ ~5 u. i# R7 J/ L" V5 Z; `        MachineName,BufName:string;
8 K  N% x. j1 B        Machine,Buf:object;
1 H: x& P4 L  C$ d2 `8 {& [9 Mdo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
9 ^; I9 G/ e; M) q# E" t! r                        print "Yes";
3 n% N4 ~* `4 Y/ j) P; l                when 32 then
# F' `2 D  i$ M# ]- }' D                        print "No";
                else
+ G* J, }1 K- x8 X$ P                        print "Cancel";
                end;
8 u& S% L8 r4 N* q3 I7 J3 N2 S        EventController.stop;
9 |; Y; I( k0 f& ?end;
/ m: P7 T. [0 P4 w0 [4 t: ePartsTable.delete;
, U6 o: `0 i$ L/ m( w" b1 b+ @6 ?for i:=1 to Number_Of_Machine loop
. n! [  x: x& R' E) i; T        for j:=1 to Number_Of_Machine loop
                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
2 F0 c) p5 J4 P* @                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
  h0 c1 z3 {0 [0 t$ V* N( l                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
5 q, W4 U2 R% U- g3 P6 {                        end;
                end;
2 D2 ?) |. _2 O( M        next;
next;

end;
  e2 z0 ]" w2 p0 |, S  O
! y9 L4 h: h, l! H    Lines :=0;
        for i:1 to Number_Of_Machine loop
+ K3 Z; I. N4 H0 h# h        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
0 L# X$ r/ c! U2 n  R) t5 Q8 {7 [            for j:1 to Number_Of_Machine loop
: u: Q1 u% Q' ]  H2 b                    if W_From_To_Chart[j,Rows]>0 then
+ w) ~  K' |& \/ K                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
9 X* g; g& R0 l9 A1 C& [( s3 h                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
5 d2 i: ]3 o! m* _5 x+ x                        PartsTable[5,Lines]:=Rows;
/ @3 V+ k0 j: i! ^                        PartsTable[6,Lines]:=j;
& @0 i2 _! I1 g                end;
        next;
  r( @2 q* H1 h8 x* ~9 c$ i        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]);
; h4 H  C0 I0 r8 k9 J: y/ \        Machine.Name :=MachineName;
/ B) j' v5 _; T        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
' p* ~0 k; U7 i) y) h        Machine.ExitCtrl :=ref(Leave);
- m/ m" _0 p+ h% {; R8 n; S, ^       
) `  F, L2 h& E: v( F) D        BufName :=sprint("BF",Rows);
* R6 ?& {/ |# p9 F9 S8 R/ Q        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]);
4 Q1 C! \$ j3 w: _9 T" J4 C7 Y1 Y+ x( N                 Buf.Name :=BufName;
) X  [8 U) Z3 o$ X2 j) \5 s. H        Buf.Capacity :=5000;
1 A1 n7 C- m3 M: p1 m* A        Buf.ProcTime :=0;
2 p" X7 K0 O+ V% Q0 Y$ x        .MaterialFlow.Connector.connect(Buf,Machine);
next;
0 H; V% R2 y6 Q% \4 S# Hend;

五五

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

wudi

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