程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
0 U5 H7 i2 t$ w! j% dis
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
9 N1 w" y7 X8 {6 E( |- W7 G                when 32 then
                        print "No";
. ~6 f) h7 G6 ~/ O                else
                        print "Cancel";
                end;
        EventController.stop;
end;
PartsTable.delete;
8 h* G) K/ i- a; l+ V7 F9 q& X4 O& Lfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
7 R6 v: B1 Y- C7 W5 q* H                        if D_From_To_Chart[j,i]<=0 then
6 }; N6 i% _- Y1 ~( s& D0 s: u                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
( {- s% M: C( J1 [) _! M0 N                        end;
* j8 N% H( e# @4 P, \                else
                        if j=i then
. c& ~+ s7 [# K" L                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
8 X+ l9 k! M9 \1 P( W8 o                        end;
3 C# J4 }1 y, t                end;
  g; @1 J3 a2 b+ M) s        next;
' o+ }/ s  _, x- ^next;

end;
" c. J2 m4 ?  m- s
+ ?+ F" J2 X0 g5 S, {; }; K    Lines :=0;
) H; Q( M/ F, F; V9 H        for i:1 to Number_Of_Machine loop
$ K$ K9 c- N. c" r5 s        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
7 y( F" E! r) H- o. m        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
! S) O# w# |4 R6 U  K1 V! v% Y/ o                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
# ~- r5 T2 j0 G+ D1 J. t) U) z' L                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
; B" z1 h8 w* t, \" _, V" h                        PartsTable[6,Lines]:=j;
                end;
4 _2 T5 w7 m7 s% k6 B! x# k( |        next;
) E% V8 g) O$ V        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]);
        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
6 i# Q! w+ \1 i* g, K7 e) \' q7 z        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
! `$ T* }& h1 ^* ?! }9 G9 b/ p       
% q' u; b# g- C$ {  j        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]);
                Buf.Name :=BufName;
        Buf.Capacity :=5000;
6 I# P: F! {. p3 G4 [3 v2 X  s' ]        Buf.ProcTime :=0;
  X4 u7 u$ d7 u  R% x        .MaterialFlow.Connector.connect(Buf,Machine);
- c0 a) z+ ?) r8 S' f8 cnext;
end;

五五

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

wudi

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