程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
0 d: E4 Q9 d# G        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
/ U# w! M; C! _) f4 V. C$ J                        print "Yes";
                when 32 then
) s0 J9 g5 I6 L7 s8 n  E                        print "No";
                else
                        print "Cancel";
3 U+ z+ z: M9 b3 r2 P) z- N, }                end;
        EventController.stop;
' ]; h% O+ w! [& t2 jend;
PartsTable.delete;
0 u) I+ |! H" k/ _, vfor i:=1 to Number_Of_Machine loop
+ ^5 v: U& G( ^7 B, H7 x* R, F* O2 N        for j:=1 to Number_Of_Machine loop
! Z+ u# p1 j6 ~3 f                if j<i then
) C/ L0 Q; o4 p. f' q/ A2 I& Z                        if D_From_To_Chart[j,i]<=0 then
, T3 Q; n% f! V# M                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
5 {% m- [4 {) }/ l2 g8 f. b+ f                        end;
0 r3 c# d- Q0 M, b; t9 r                else
" m3 ?. Q7 L. M: W' f" M                        if j=i then
7 a3 l& f/ m+ p$ X5 l6 Z                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
) m9 N( S; @0 L6 w# b% c5 q                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
- V9 t. |+ b, S6 D1 M" G6 p/ z: n( Y, t                        end;
: {. V, M/ j8 I2 c$ v8 }                end;
        next;
7 R$ a/ |9 b+ y  anext;

end;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
" q. O. d! n2 G  _) K7 c        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
( \! D$ u; F: T' z& q; i* Y                            Lines :=Lines+1;
0 e6 Q. S( `/ c  t+ x0 X+ {* 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");
+ J8 t- Y/ x8 V& i2 {                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
) s0 l; W7 j/ n( [% j                end;
        next;
2 i% Q6 a) U* D) H7 W+ a7 j6 _        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]);
8 D2 k/ j3 y* t9 a3 A" ~, ~        Machine.Name :=MachineName;
" t5 V( m: Z9 ?* S- f- K        Machine.ProcTime :=5;
% y* A' u* i. y$ t" c        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
5 v( f1 Y0 C% O! l# q5 T6 ?0 H- e        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]);
/ }# N+ W* m1 M' j/ E( U* X" I# D                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
8 }1 I* s( w  o$ F1 c9 Tnext;
end;

五五

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

wudi

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