程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
( P1 v# h' P% f" wis
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
do
/ B$ R. K$ ~- q* z2 x% N5 |        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
, @) ^+ c6 Z! o                when 16 then
                        print "Yes";
' \0 ]' h+ [% S0 p" p                when 32 then
/ p* b. _: L: h                        print "No";
& R9 c$ Q7 b1 _% n: O& K                else
" W+ C+ U. O- ^( v, K                        print "Cancel";
                end;
7 y5 ]' e! e, o9 ~        EventController.stop;
end;
% W- f2 y/ ?/ ^+ B, J  g2 oPartsTable.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
  b" Z4 c7 z: H) N                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
& l. M1 T1 ]. J1 t                else
                        if j=i then
. S1 P0 u# z6 i# p  U0 B# {                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
4 h, E8 u2 |3 `. W) f; p                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
/ ~% t5 U& f+ B6 k& e                                end;
( o# A4 u- g& L& X5 c! y$ y                        end;
1 w# V% l' O8 S/ ]7 Q! O" h7 R- T% C                end;
        next;
: _( C- P7 Y3 Z2 {! l* ~0 tnext;

9 \; B0 b' A" Hend;
3 `% |/ v& ~- P
    Lines :=0;
        for i:1 to Number_Of_Machine loop
$ w* G/ B( m. l- p. r8 K        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
& n" K- ]* G. D  N- t                    if W_From_To_Chart[j,Rows]>0 then
. D8 _2 h, @; g; M* A                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
  y. O0 p" h6 q( }) x                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
) U9 v! H# H1 m; p* D) D: Y$ e                        PartsTable[6,Lines]:=j;
                end;
! I' [# B* v0 M) L) @        next;
        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]);
% U, e5 y" B3 f1 y; m7 \* k  Z        Machine.Name :=MachineName;
* U+ D7 R( x5 W! t        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
( y; Q8 l5 U! P: ^! t; Q        Machine.ExitCtrl :=ref(Leave);
& b1 A+ W8 R- _' u       
  D7 x& E* k$ @9 J2 I" C; K        BufName :=sprint("BF",Rows);
. b3 Y  I- v* }        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;
* |8 C/ S. u, v0 G9 E3 d        Buf.Capacity :=5000;
' B7 D/ P5 {5 Q0 C7 x        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
3 J1 }: r" F# Q, Inext;
' v: o# s* v3 c( s, v" [7 |, cend;

五五

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

wudi

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