程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
; m) X  T9 u! L9 `5 K3 m# mis
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
do
* e7 z+ b$ E  ~* _2 |        if Number_Of_Machine/=D_From_To_Chart.YDim then
  m  U4 D  k+ \( i# ]                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
9 p5 L0 {4 u- |9 [8 `- q: i: ?                        print "Yes";
                when 32 then
& _) ~2 ]  e) n% x- i) Z1 x                        print "No";
3 ^, s' p% {* h; a" x* E0 `                else
2 S, H. Z! W- u- _9 ]4 u                        print "Cancel";
2 P5 R& C; W  ?                end;
        EventController.stop;
2 k# P8 t  k7 i4 |end;
, X) G% M/ {$ p5 [  _PartsTable.delete;
  b; }. y( [4 b+ K4 Lfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
: {+ d! ?& a3 ]  G                if j<i then
  ]& n- B" g1 v% d: m+ Y: h                        if D_From_To_Chart[j,i]<=0 then
, t8 H; L6 _4 Z                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
8 H: U/ ~2 ]% I0 b                else
$ n4 O) b4 l# K% d& F                        if j=i then
# }9 |& ]- |3 s# b2 a$ }6 T                                D_From_To_Chart[j,i]:=0;
. A1 x! f+ }: V+ u                        else
                                if D_From_To_Chart[j,i]<=0 then
5 {$ D- R8 k. I; ^2 d* {! {                                        messageBox("distence<=0...,",50,13);
0 Y6 ]  X/ m" R0 i) B0 U                                        EventController.stop;
  M/ x/ a5 f1 ~                                end;
7 P' _' U( \- [8 o8 G& V2 b                        end;
6 f6 n* n: S2 d% ]                end;
        next;
next;
. N% M. c; ?  B- Z. _% G
3 v/ a- L  T) V  T$ B8 ]; ?end;

" E5 J) V1 c* [0 f    Lines :=0;
        for i:1 to Number_Of_Machine loop
# H# M; `) H" K8 k        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
1 ]- z& |7 Y" m8 `6 w        MachineSequence[2,i]:=Rows;
, Q( t, N) C  h0 e3 O0 l& o            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"));
, x/ v9 f1 Z* R/ d6 H& I  r  U, |2 E                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
4 n# \  D; ]8 h# z+ R6 O$ d                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
8 O5 }/ T; Q; L0 i/ C6 u4 c4 @9 J        next;
- M/ }% H8 ~: R" e9 I1 ~$ y        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]);
9 L% z' [9 J2 q0 ~9 ~: K' E        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
/ M; \4 i1 h# r" a* x3 I        Machine.ExitCtrl :=ref(Leave);
* W+ L* i4 {$ `8 m5 K8 o       
8 U! m. N. N0 E; E* Q: o        BufName :=sprint("BF",Rows);
0 h  ~9 w: |. @; d/ P4 }& Q. F; W        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]);
; v1 }4 {3 M! H! C                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
8 k; T+ K1 [: a5 u- m1 I2 j        Buf.ProcTime :=0;
/ f; p) T( l* k* x/ O        .MaterialFlow.Connector.connect(Buf,Machine);
+ b# J+ M: u8 `+ Y& x$ w* Inext;
6 L: ~0 E2 u; v; vend;
& L& B/ r- J1 g. @/ s3 d

五五

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

wudi

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