程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
" j0 o% Y/ Z! }! E1 A( c% k, _is
        i,j,Rows,Lines:integer;
- x% R7 \- k' ~$ O1 T* Y+ F        MachineName,BufName:string;
        Machine,Buf:object;
do
2 _; Z6 c: Y7 B) H5 l2 w        if Number_Of_Machine/=D_From_To_Chart.YDim then
. a* @8 |( V6 t/ Q                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
# u& _( P; _2 S+ f& {% U  A; I                        print "Yes";
                when 32 then
                        print "No";
                else
  n3 w* J" ]) h8 Y& ~/ h                        print "Cancel";
                end;
        EventController.stop;
4 O5 F! b! m9 Mend;
PartsTable.delete;
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
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
9 W5 x3 @4 h* a+ G! ?                        end;
                else
! G" p" o9 f2 c) X4 H                        if j=i then
                                D_From_To_Chart[j,i]:=0;
7 s) l/ P) m; Z$ Y' V+ L) n                        else
2 C5 L- [- K9 d1 m8 c0 _) C                                if D_From_To_Chart[j,i]<=0 then
7 k( Y: t9 y: E                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
3 S/ o. V0 j: Y                end;
        next;
next;

end;

9 U' [( r  W3 J3 r: C    Lines :=0;
5 E3 K) \8 ]9 }+ G; b- j+ D; K        for i:1 to Number_Of_Machine loop
& @; `, O" u1 J0 P  s  X! l! L/ q( Z        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
! Z: i! L0 _. N6 i( Z            for j:1 to Number_Of_Machine loop
; y3 |9 T% o9 r* v( R                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
+ i- k! p6 I( g                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
; e# J% l. d5 h, J                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
" D! F* r$ g& r4 d/ x                        PartsTable[3,Lines]:=sprint("Parts");
$ L0 |- }3 ]* t" Q- L) R: W                        PartsTable[5,Lines]:=Rows;
+ b" t! ~* p* I7 E8 r" a6 r# f                        PartsTable[6,Lines]:=j;
4 k7 H; s4 w1 v2 X  K5 |                end;
        next;
4 [1 R* @' \2 Q  Z9 n3 _4 {        MachineName :=sprint("M",Rows);
9 v! X5 T2 H  u$ q6 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]);
  O( {1 |( ?4 ?0 a2 J        Machine.Name :=MachineName;
6 k0 S* D4 G4 J- }3 A2 Y        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
2 \) R$ Q6 Y% C7 o2 u5 Y& F# ?! W       
4 l: e2 v% ]' x3 e' `9 u4 R        BufName :=sprint("BF",Rows);
3 r/ B, k/ v) i+ s        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;
        Buf.Capacity :=5000;
2 k0 ]" h' O6 G' j* ?4 Y; G2 `        Buf.ProcTime :=0;
) s+ a% m3 i6 q& T        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
4 G, [% @' Z( C/ M( g

五五

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

wudi

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