程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
$ V0 H+ d6 G6 u- G( Y, q0 Lis
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
  p0 S% }; f( o6 g        Machine,Buf:object;
do
3 U' f7 l9 c7 N8 g: \& J% M5 o        if Number_Of_Machine/=D_From_To_Chart.YDim then
, M6 V$ q; E- v' p# w/ c6 L" G. `, R                inspect messageBox("Number Wrong...,",50,13)
) W1 F& V. `( L8 d, C+ T: V                when 16 then
. c2 B: k  M# `9 m& z                        print "Yes";
                when 32 then
                        print "No";
                else
$ V3 ^$ Y  A9 J' K7 d                        print "Cancel";
                end;
        EventController.stop;
# t. k2 ~* ?8 `2 g- E+ Aend;
' D& e' r0 x) ?( d$ V; _' gPartsTable.delete;
2 n# e9 L6 ^2 {for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
9 r% E' A2 H- T2 \# b                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
$ C1 \8 X# [+ \5 d' ^: W0 J; J                        end;
                else
7 N6 b2 J( h' r( p! l0 b: t) L8 j" r                        if j=i then
: q8 G3 j6 S7 c/ e  A                                D_From_To_Chart[j,i]:=0;
0 ?0 Y; F6 T6 R1 A4 j- y: R                        else
: N8 p9 o6 s, p0 U, F) a                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
) T) F2 S1 G! K# x! X2 v' y                                        EventController.stop;
( V+ p' D! ~5 f/ a+ b                                end;
" G) P, f- x- y  ^9 W( e( e                        end;
) Q9 e8 x4 K2 T2 r) h3 B4 L                end;
        next;
1 C1 }- m; b% O+ C# _0 }+ ]# tnext;

end;
( I/ J! m# B3 t& {9 T, K! F
6 P: j( o3 [* W, l" I1 P6 K# R    Lines :=0;
% n3 D3 P7 }3 @) R: m/ m1 F  @! r2 h        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
9 X- c, v' P& ^* d) T# M        MachineSequence[2,i]:=Rows;
. y) B* `, U  ~            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
2 d% V4 d% T; i2 f8 e0 p                            Lines :=Lines+1;
+ k# `% R, e6 a3 m                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
" Q/ f7 Q. ~" |1 g9 O                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
$ y5 N, \5 L+ K4 Z: W6 k  D                        PartsTable[6,Lines]:=j;
: q+ i4 E9 j/ |, t) u0 |$ r                end;
        next;
        MachineName :=sprint("M",Rows);
( @. d& I; x, B  J+ }: x7 u! _        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;
4 L) T9 R( u- P( R        Machine.ProcTime :=5;
% Z/ O- ]; O2 P2 s8 i; U# l        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
$ y' n) V5 a/ k& T7 S& i# g) h       
* p- R( h; \  |/ B  O        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]);
) V- c; l/ y$ ^+ G9 a1 a0 U                 Buf.Name :=BufName;
8 U; T. I8 [4 J. ]0 a        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
" A/ _9 y3 B, I* d  l5 k' Vend;

五五

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

wudi

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