程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
9 `- W7 z0 V& k# y0 N* ais
        i,j,Rows,Lines:integer;
) Z1 Z2 \3 @0 N' `        MachineName,BufName:string;
0 h0 A6 M" ]: S2 K7 |% M) t        Machine,Buf:object;
- l' ?6 Z7 R* B/ ndo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
4 P; s5 B6 b. Z& C4 f                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
! S$ `/ ^1 j* g  e0 J9 Z, [6 Y                        print "Yes";
/ ]; m3 m4 O% P( q1 B: O                when 32 then
3 w, u' {8 l) w) r/ B2 ]6 X/ b                        print "No";
                else
                        print "Cancel";
: I3 `) K1 y/ U3 m! p                end;
) u% _+ q% {* n. e3 {        EventController.stop;
end;
( b& P; R0 {! ^/ A( B  xPartsTable.delete;
5 P  P% w4 b( Ufor i:=1 to Number_Of_Machine loop
/ j! L) ]6 a5 }1 J1 H        for j:=1 to Number_Of_Machine loop
                if j<i then
9 g% H' f) F0 u/ L                        if D_From_To_Chart[j,i]<=0 then
: ?0 m# {- u9 K                                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;
( ~/ J8 X9 d: O4 U- c1 e# t                        else
                                if D_From_To_Chart[j,i]<=0 then
( ?6 n8 @9 Q8 N+ [; X' _6 K                                        messageBox("distence<=0...,",50,13);
" @% U* ~  J; W, s6 M6 p. h% F6 t                                        EventController.stop;
                                end;
. ~- A% e7 b5 |3 h                        end;
1 k, u1 L' G* n                end;
        next;
+ L3 N7 W& w2 Z4 f9 e+ Z1 M9 {next;
! w; X; n4 ~; B' U" r$ G
" Z: u6 O5 ]5 ]3 e6 oend;

    Lines :=0;
) _8 x- c' x; Z6 a4 u        for i:1 to Number_Of_Machine loop
5 W4 E0 u5 j4 C2 M" S0 o        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
& _) l) v% e3 e- \/ ^) s+ H        MachineSequence[2,i]:=Rows;
            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"));
2 g; G) u$ P5 e) F2 d7 J                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
0 E) j( K& i, l6 Q9 X: h$ W                        PartsTable[3,Lines]:=sprint("Parts");
- I/ d2 }  r  d4 i  W$ d                        PartsTable[5,Lines]:=Rows;
+ r! f. e9 v; x  c                        PartsTable[6,Lines]:=j;
                end;
' \, D/ W- {; f* C) v1 C        next;
        MachineName :=sprint("M",Rows);
* z5 m8 l: H! w; `# 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]);
' G% ~: L! |8 b2 j& V, C        Machine.Name :=MachineName;
- \, }- ^; J4 S5 ?% V2 G- w5 `        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
% {) n  u1 @: g# G9 i9 O! t        Machine.ExitCtrl :=ref(Leave);
  }  t( W& Y  m       
        BufName :=sprint("BF",Rows);
3 @# r: m% J: M+ 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;
% ?0 H) X, p1 E9 u9 T& Y        Buf.Capacity :=5000;
4 f. s1 M- g  o( n: W# l        Buf.ProcTime :=0;
* y: P* \+ }# K9 a6 @8 p. A        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
2 |7 Y7 h5 q' F' U( K3 F# b$ T3 \

五五

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

wudi

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