程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
' y+ K4 L$ D, B+ ois
' }3 ^$ r! j8 p( Y        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
0 v1 j; t$ m. I) V. v5 y        Machine,Buf:object;
8 @) V2 z& t; hdo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
( @" p; w8 {7 S0 _% q                inspect messageBox("Number Wrong...,",50,13)
* R  g+ v% x+ E# J) T                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
                else
2 @% B3 d' q( ]& A0 q                        print "Cancel";
                end;
        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
6 I' o; }# w4 N+ g" d: [$ a5 e4 W0 E        for j:=1 to Number_Of_Machine loop
                if j<i then
, h) @7 B6 v0 Q$ ^                        if D_From_To_Chart[j,i]<=0 then
2 D! L9 \5 c- l7 u* l                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
) s2 ~) }4 k. n& h0 K1 }7 Y5 m7 l) c; X                else
                        if j=i then
' J( `5 Y( C( _2 @+ R2 F1 D                                D_From_To_Chart[j,i]:=0;
                        else
, ^0 X4 c* S: C1 Q                                if D_From_To_Chart[j,i]<=0 then
9 d9 m  i4 T  W& D! f7 h! C5 l                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
' F- p. c3 N9 ^) |                end;
        next;
next;
* G2 b6 V2 T, P/ o
end;
! Y& |9 B: n4 t  C
+ k4 P. V) r4 g3 _    Lines :=0;
5 ?% h! p7 N. |4 R: e2 J9 f        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
5 `$ s- S4 a4 ?/ r: S" x3 k; L9 I        MachineSequence[2,i]:=Rows;
1 b+ O( h5 O6 }# A            for j:1 to Number_Of_Machine loop
- |0 C+ }6 x9 H: c2 r7 }                    if W_From_To_Chart[j,Rows]>0 then
: z* X7 T, Z$ A) c0 B+ y+ G                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
- Z1 c; [* v, U2 A7 p% @- @                        PartsTable[5,Lines]:=Rows;
" V9 b' B* @( y; p                        PartsTable[6,Lines]:=j;
                end;
        next;
        MachineName :=sprint("M",Rows);
- J. Y4 i1 O8 w/ H        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]);
( t6 e9 e9 v1 ]) q        Machine.Name :=MachineName;
& z1 {; |+ V) m) y, C        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
$ G% x% T6 i2 W( j; g& ?9 |        Machine.ExitCtrl :=ref(Leave);
       
' r9 L6 l; N* v0 A        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]);
$ S- E; P' I, ?& o: F3 Y                 Buf.Name :=BufName;
7 ^- T/ Z4 W: Y* d" _4 p        Buf.Capacity :=5000;
9 P2 Z+ j9 z1 X        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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