程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
, l4 V3 J( _4 S) p0 a: P  }        Machine,Buf:object;
do
5 P3 T0 L! O6 N9 }* I        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
8 h8 i3 T) Y6 u2 i3 {. {                when 16 then
                        print "Yes";
8 B! K3 H3 f# X, |1 v                when 32 then
' T' X: }. ]9 F) Z8 G$ Q4 ~/ j+ O                        print "No";
                else
# a  G6 R: p3 q& e$ p9 j: N; K                        print "Cancel";
& J3 y2 u0 u5 |; ~! s                end;
        EventController.stop;
7 M& W  z/ r) N( r5 ^+ Vend;
' m2 j, L. ~- j+ n  w7 G& m$ d+ yPartsTable.delete;
8 I/ R( ]2 R) |) D6 B9 Y2 U, ^" `for i:=1 to Number_Of_Machine loop
* G2 I6 J. P$ q) `. p9 O' A: K" x        for j:=1 to Number_Of_Machine loop
                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;
* S2 k* h. G8 {4 J! ^  S' Y- g$ _                else
6 e  b) W. U3 S" U8 o                        if j=i then
1 O( Y4 f6 }1 \6 l2 \5 N                                D_From_To_Chart[j,i]:=0;
                        else
. ~0 G  y8 E& a' ]  U) q                                if D_From_To_Chart[j,i]<=0 then
! W$ |! t; [3 R: H0 L/ }1 Z' F                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
2 \" m" r6 m. n" j8 x% A2 R1 \                                end;
$ m1 a/ @  H- s. w2 w2 B( F                        end;
                end;
! x% w  }- |4 E& N8 s        next;
next;

end;
1 C# f1 I( [+ H! H* n
4 E3 i5 E" Q& ]/ R. \  ^# \    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
' j3 h, q7 ]: P            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
0 z# g, ?: k$ J3 J+ ^. s  @                            Lines :=Lines+1;
4 o) d7 r; `5 a                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
7 S8 j& A/ Q9 W& C                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
# S9 r. F4 u9 N) Y' Q                end;
* u' [0 v( Y1 K" G8 x2 D- ?8 J5 ^# o        next;
! v6 S# \# f+ p7 N8 a        MachineName :=sprint("M",Rows);
        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]);
9 Q+ G$ \# Z4 O+ @* t; Z) X        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
; Z' {5 C9 C# f+ V. E& |        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
0 m, Q7 e2 ]2 {0 I; N; q7 |       
        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]);
4 X7 l% |% y( s* \2 T7 e& g                 Buf.Name :=BufName;
& Z7 v, G- K! Q7 `3 A        Buf.Capacity :=5000;
4 G  V% N  z. l) s# I        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
$ y3 K: D  r9 U7 l. C

五五

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

wudi

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