程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
, o* @0 l7 w7 C  {! Lis
        i,j,Rows,Lines:integer;
( y/ L0 m  D5 _: |& I; ~; }        MachineName,BufName:string;
        Machine,Buf:object;
do
( h# R/ o( `$ s# o0 a) c9 I        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
6 ^- {& u% f  A3 I9 c: z( F                when 16 then
: m+ |! H3 F& A& g" b                        print "Yes";
                when 32 then
                        print "No";
                else
* Y) r# Z/ Y# t1 H+ H0 B                        print "Cancel";
  C% q5 F3 ^' ^; k' d! @                end;
3 }" Q) ~- E6 g+ x+ q9 ]        EventController.stop;
; Y' R0 D, s) y3 U. {* {2 @end;
PartsTable.delete;
8 i) T8 b+ m/ L& p- K6 `$ ifor i:=1 to Number_Of_Machine loop
  A( F- B2 y( F  p& H- q        for j:=1 to Number_Of_Machine loop
                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
$ K% D5 Q2 z% a! t' o+ D' n# }( ?                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
! f& j$ G( b* P$ ~/ I4 B7 t                        end;
; i4 T+ O# p* s                else
' T* v- u$ S& _# P2 Y                        if j=i then
) p( Z4 a* O9 |9 ^$ g$ _5 {                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
% _% K# T7 X, \8 Q/ \7 F- O                        end;
: e3 g, A4 f& Z                end;
        next;
' `! W& d) E4 h0 g+ l7 hnext;

& Z) G2 i( p6 S3 c. G9 F0 ~end;

    Lines :=0;
5 J6 q; Y3 C5 L% Q        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
8 T) s4 i7 }* l# W* [  D9 ]        MachineSequence[2,i]:=Rows;
( J4 e7 @. k: D# v: T% [            for j:1 to Number_Of_Machine loop
2 O2 G2 n" @4 l( t" _. L                    if W_From_To_Chart[j,Rows]>0 then
9 f+ y2 T! @$ n- D+ |* h                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
3 u9 p2 p6 \+ _2 @                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
- _) J5 f  C& T$ H) V% m                        PartsTable[6,Lines]:=j;
                end;
+ c7 ^! e4 `1 D: c) I& \- A+ D. x  `6 x        next;
6 o8 n' s" M8 C        MachineName :=sprint("M",Rows);
2 p% ~4 `; k8 q. b        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]);
$ f' j1 c# A& M        Machine.Name :=MachineName;
+ }( U0 g2 G/ Y7 T7 \* s3 w. c4 O        Machine.ProcTime :=5;
% \/ ?2 x+ @) n/ |+ V5 ^0 L, f        Machine.label :=sprint("machine_",Rows);
8 J: f4 C) h( K( `6 D( b) C+ N" R: n        Machine.ExitCtrl :=ref(Leave);
1 i2 T5 r6 v& B" A       
* c, E5 S4 V. [# N  R( O8 C2 l        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;
( ?  u% I7 D" t& r) S        Buf.Capacity :=5000;
9 k; R5 k9 K1 P        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
6 t% F; d8 \2 I+ i" ?6 wnext;
+ L4 ~2 w: N+ o* {' T- `end;

五五

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

wudi

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