程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
9 D+ \* j( ^- i8 a" Xis
        i,j,Rows,Lines:integer;
2 k. W' `* s% T% A* g. ^" q        MachineName,BufName:string;
# o4 }- g5 P  _$ n! @  e/ P( z        Machine,Buf:object;
* f  G8 P) T1 ]; ydo
- C' K4 y! c' Z) A  X% K        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
% p8 h# S* @7 {  G! S                when 16 then
: N9 ]+ J% D5 }- X& Q  m% m" I                        print "Yes";
# _; o; ~9 m5 ~( W                when 32 then
3 Z9 l: y9 J, T                        print "No";
                else
/ m/ [5 w/ }5 h& `3 C- _                        print "Cancel";
                end;
2 u7 u( `5 B7 k        EventController.stop;
/ l9 E' v8 k8 n: vend;
! T: k, [' [& B, M: p. MPartsTable.delete;
for i:=1 to Number_Of_Machine loop
* E: b  O: p5 \7 V8 b* Y        for j:=1 to Number_Of_Machine loop
$ ?6 U; K7 K1 q* b; h, v; G                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
                        if j=i then
4 O7 x2 p0 M1 |8 g# r) t                                D_From_To_Chart[j,i]:=0;
                        else
" l. A: R% Z1 O5 B4 u7 u                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
: W" ]! P0 t8 H- u* b                                        EventController.stop;
                                end;
                        end;
                end;
3 v9 C! @1 }& ?7 V5 M        next;
next;
4 J) M: J# ^1 {7 ^5 N" b
" t# g' @+ c7 L# a  i2 r  i. [end;
$ ^, L( @: P7 q# H! w
# @0 p5 w3 E2 J, l    Lines :=0;
6 h7 _  ]; D; P1 {- G& R        for i:1 to Number_Of_Machine loop
! u# a7 }" r3 |* ~/ G        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
9 L7 u" Q, ]/ z" K& O* {. g6 a( `                            Lines :=Lines+1;
, D) @* \3 j* u                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
% n  }  q9 k- R" p9 |( E                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
( O# \1 n1 K. G$ K$ I                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
0 w0 n1 @& g+ y" y1 W, Y                        PartsTable[6,Lines]:=j;
7 |4 V- j( n4 R/ d                end;
& C/ Y, ?7 X% F* K- G0 @3 ]" F        next;
        MachineName :=sprint("M",Rows);
' \4 s6 o9 t! t4 ~        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]);
( [$ m- H9 Q+ j  `( y        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
0 m5 p) K/ `; \4 T/ H0 B; |- U        Machine.ExitCtrl :=ref(Leave);
( U: ~& _* C' z       
4 t+ ?5 X: k( V/ Q4 w) E        BufName :=sprint("BF",Rows);
8 x- ]6 t) L3 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]);
. @: j0 R+ o4 ]7 U% k% \7 G6 ^                 Buf.Name :=BufName;
! U0 I+ H# U$ [& y) o        Buf.Capacity :=5000;
+ x. S. o' j- V4 c! `8 h* P) F        Buf.ProcTime :=0;
. q4 D/ `; ?6 x$ X        .MaterialFlow.Connector.connect(Buf,Machine);
3 l1 ~' G) n$ t! L9 mnext;
end;
, }7 G& u: z0 |0 N( ~

五五

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

wudi

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