程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
0 y0 W7 a2 Q( X3 f        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
& D6 _% Z! l8 Ydo
" k- N4 b3 F" M        if Number_Of_Machine/=D_From_To_Chart.YDim then
, z3 P# ?# x% U+ o1 t# f& {/ C                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
7 t/ a& P( L, q7 F( |: O                when 32 then
( N" _: v4 U! s- T                        print "No";
1 s, ?; ]; l+ b- D: j: N, f0 l                else
; w$ x2 s5 p; }                        print "Cancel";
                end;
        EventController.stop;
end;
0 ^9 x* F; v' ^- M# n( ]% cPartsTable.delete;
: s8 I! E) c( Zfor i:=1 to Number_Of_Machine loop
  z1 l. Z3 t* A+ X/ a4 s+ `; p        for j:=1 to Number_Of_Machine loop
                if j<i then
( l+ u1 U" H& o+ ~  B* W                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
+ _- ^) S# _0 H+ n5 a" c                        end;
+ r2 c( \( O& l7 I# A4 e( ^                else
. N) G# \) ^7 }0 }                        if j=i then
& W' u& g) c& f: a- T- |                                D_From_To_Chart[j,i]:=0;
                        else
8 w* y0 H: b; F; ^( @                                if D_From_To_Chart[j,i]<=0 then
* ?0 m2 o( s: l                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
% D9 X- x& q& N, @) W; z                                end;
                        end;
7 g2 X- l; O. G. w$ W* l+ ~                end;
2 I/ u' w8 o9 t        next;
next;

end;

5 a5 ~) `& [/ N7 M9 o" ~4 f    Lines :=0;
        for i:1 to Number_Of_Machine loop
' v: E. u; G2 W# h$ V: w        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
6 W1 h! i: {0 ^2 p3 Y& y            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
, U5 j, m( q( F/ G( ?8 _) y0 c5 H                            Lines :=Lines+1;
& Q5 K" E3 K/ m" m                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
5 W" T( m' V' K8 Z) \5 S3 o0 s                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
3 ~: ^: p4 }/ e6 z) T& s/ Q6 u                        PartsTable[3,Lines]:=sprint("Parts");
! b: {1 ?" W3 p) q# g5 J* v                        PartsTable[5,Lines]:=Rows;
4 O" U/ O! A7 X$ q! n                        PartsTable[6,Lines]:=j;
) V1 K( ]5 I. f' n. R# r                end;
: b8 E" `  j5 Z3 G( R, C        next;
        MachineName :=sprint("M",Rows);
; A8 l, S) _6 f! W* l) O. n, o        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]);
0 j- y8 H2 g) w/ p/ j( R: {        Machine.Name :=MachineName;
; Q+ J# V' ~9 G6 g7 B# \% ?2 R        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
/ s/ L+ D" D6 E        BufName :=sprint("BF",Rows);
! U8 ?3 B* `6 K$ b$ ?4 U% Y        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;
! K4 f) c5 s- D1 ?( u        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
- Y3 u5 |: ^5 e! \: I, X' S* m        .MaterialFlow.Connector.connect(Buf,Machine);
% x5 |- |# n) ]) R- w- O* @next;
end;
$ ], \# T- A8 p, [% ]

五五

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

wudi

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