程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
8 k, x- J# v5 eis
9 C, V  `3 ], _7 ?) r3 K* Q5 f9 V        i,j,Rows,Lines:integer;
! u( A) V- E* U* ^% q7 Q3 g% S        MachineName,BufName:string;
        Machine,Buf:object;
do
/ F3 S" a: H) l7 w6 u$ g7 E        if Number_Of_Machine/=D_From_To_Chart.YDim then
7 U6 Y, f" O% l/ J. o9 L: \5 U                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
4 r: u- @! A& e) t' q' H                        print "No";
9 g* O1 h& y6 {8 f) T' G& X7 g                else
1 i$ S0 O( G: x. R& @3 \$ S                        print "Cancel";
2 {0 w8 z& x$ S9 f0 j9 G" k" }                end;
6 T3 E1 _6 P7 R3 H5 \8 _2 i        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
& {) `* U$ a6 b        for j:=1 to Number_Of_Machine loop
                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
; m* w" b) x$ V! }9 q                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
$ Y( f9 l  L5 G) x0 ~( M                        end;
                else
% h4 H3 \9 }" _, w1 C  V" k! _9 [* z                        if j=i then
( f% j$ d7 R0 X; K                                D_From_To_Chart[j,i]:=0;
6 j0 Q! B2 q0 m* B                        else
- n3 J2 P( D; g' @  ]. a                                if D_From_To_Chart[j,i]<=0 then
% G5 N5 s: k7 E6 ~9 {7 L7 E3 D                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
& T. u4 V2 r: B& r1 H  s                end;
        next;
3 s- C. w% X3 N7 k. hnext;
: V; \6 t& a$ J5 {
end;

    Lines :=0;
% U+ n% o# o" N+ q        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
+ D0 X- Y1 A5 T" S9 K: P4 B                    if W_From_To_Chart[j,Rows]>0 then
9 f8 J3 c' Z2 V0 a! S                            Lines :=Lines+1;
4 _4 E. Q' r5 Y                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
1 \6 i+ N3 A: L3 a                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
) K3 I) i9 Q2 W                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
* Z* \6 P; e2 S3 B                        PartsTable[6,Lines]:=j;
* a6 V: Z/ e6 W  R" _2 }5 Q                end;
- u3 u, T# ]3 W2 D( c; l) l        next;
9 H' [( \" u: ^7 [; s  E2 K% K        MachineName :=sprint("M",Rows);
1 x1 g  a9 K% t6 O8 L        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]);
5 D& X9 L8 B) r0 @- q  s        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
$ ^, \  r" A6 z- a" G, ~6 G5 {7 F        Machine.ExitCtrl :=ref(Leave);
' b1 y5 C  H( O* A5 A       
! i! ?" K; _4 b2 }/ E        BufName :=sprint("BF",Rows);
) l: W6 }( {9 H5 o  d        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;
1 U4 w6 z. c: {8 l& K        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
) i/ w2 H8 o8 T# s4 t1 C        .MaterialFlow.Connector.connect(Buf,Machine);
1 l+ Z) S# g# G* Bnext;
, \! F4 E0 [7 I5 \end;
6 c: f! y) P" y, N/ G  `

五五

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

wudi

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