程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
, T5 ?2 x& G% R! Nis
5 k) l6 U0 [6 r5 n        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
do
% @* ]2 X7 Z3 L/ o' `6 @9 `        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
1 ^) J) w- I9 |, j4 p                when 16 then
% K: ]( L2 Z: k% T/ e. u9 C                        print "Yes";
                when 32 then
1 o- w) n7 L, l% C1 s8 b$ y                        print "No";
                else
& n- X/ L7 u  z( g* f1 N1 `% F6 v! q# o                        print "Cancel";
, u5 H, h0 s8 L$ F& `5 N1 k3 B                end;
% Y8 G' h2 Y( T* V$ c6 F* G        EventController.stop;
end;
; w/ M; m: I/ P; CPartsTable.delete;
6 E3 N8 d' M' i0 U- p8 wfor i:=1 to Number_Of_Machine loop
) v1 e& C+ K/ E' x$ l        for j:=1 to Number_Of_Machine loop
) F6 S8 X! e) w: F                if j<i then
& I" D* m2 U) N( D# E; o                        if D_From_To_Chart[j,i]<=0 then
# w- L: L+ m" o2 J                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
8 r! T5 R; z7 G% y1 r                        end;
                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
! N* c8 n1 {7 a/ x- r                        else
7 K5 R3 f( T& q- ?+ D/ @9 e2 f                                if D_From_To_Chart[j,i]<=0 then
) Y( c7 j8 j3 X7 M3 @/ Z9 M                                        messageBox("distence<=0...,",50,13);
, Q2 j) e  p2 |* Y: o' c0 n7 A7 B                                        EventController.stop;
2 q9 v' N) C, w                                end;
                        end;
% }) _2 E- U5 {0 P+ M+ A% m$ b                end;
. w8 K' \! A- p& u; h1 s        next;
next;

end;
" T/ t" `3 H. c& P/ `" O7 a
    Lines :=0;
        for i:1 to Number_Of_Machine loop
! _& ?4 u' u2 J' n* P        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
1 O$ M4 Q( U2 E1 @                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
  W8 s2 L0 P: n                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
8 B4 L9 J- ^0 B/ y! i, A                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
  A- ]" a2 b: C                        PartsTable[6,Lines]:=j;
2 g0 W2 V# W( |0 Q1 x                end;
: o2 P8 G+ |  H) R! k        next;
$ ]- A$ m) ?$ u1 V0 Y1 P( t        MachineName :=sprint("M",Rows);
2 b" a4 }& c' k$ \        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]);
        Machine.Name :=MachineName;
9 Q* i  P( i+ j; ^. ]! V' }        Machine.ProcTime :=5;
+ p5 T" x3 _1 ]/ W% N        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
$ ^6 f2 c6 U  I% [$ Y       
! l- s! v: S$ G; W" y        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]);
* ~& W2 f5 \# I  q1 _3 T                 Buf.Name :=BufName;
0 I( w4 \: R0 V  V8 z3 P+ K% v" |        Buf.Capacity :=5000;
9 w$ i. n/ ^6 f$ U4 i( y        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
5 w% r8 @6 H0 b: ^8 p8 D  t! _

五五

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

wudi

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