程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
0 [8 C5 r: }& I8 K0 @        MachineName,BufName:string;
) ^% y# W* V: E) V; O        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
  G" p& |, X# y' }4 @' {                when 16 then
                        print "Yes";
8 ]6 G. i) O, s+ T1 v& ^                when 32 then
9 M& P' q" ?0 I% o$ j6 g5 y                        print "No";
5 Y7 U, p9 o! V# X6 k2 l, L9 m, r                else
; p4 j5 o8 j' {( [8 c. J                        print "Cancel";
                end;
9 S  a% ~3 M9 a, h- H/ a( o        EventController.stop;
end;
$ G, ]! g% A2 L% G9 d7 BPartsTable.delete;
& _9 @/ u" L4 G( _- m$ u0 B8 rfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
+ f8 z5 i/ ^. M% q- S                if j<i then
* H* b, a! `# S0 G$ A                        if D_From_To_Chart[j,i]<=0 then
) d8 N! ~& e! }9 Z' U                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
! }# {# g4 F' n: x, }/ K/ R                        end;
                else
                        if j=i then
) H+ B$ X* C( j# r- ?5 G3 s                                D_From_To_Chart[j,i]:=0;
; o& E2 k- L6 K1 X                        else
: U$ J0 E- t# K                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
) |6 e7 y9 L6 D- }                        end;
                end;
        next;
1 C; p( m% p4 a  U$ Znext;
* ]. X" w4 [- O8 E. u" S& [/ T- u
end;

    Lines :=0;
+ Y( c8 H. S5 g+ C  x. W: ]) ?        for i:1 to Number_Of_Machine loop
) l* k0 o) u. g* g        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
4 t; O- N7 y; D        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
. [* V6 o3 _9 w2 q" x: a                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
2 ]* I. c9 X3 W" A) S                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
. P9 l" i3 E5 Y6 E% l                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
; A& f# [, E6 E6 X& F                end;
; y  y, M( W- q% {' o3 @# ]0 t        next;
  C2 l7 s# n5 k( G* k        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]);
- I: x1 u; n' w: m: b        Machine.Name :=MachineName;
. x7 \9 L; c- P; L        Machine.ProcTime :=5;
3 s& j: m- ~+ K( F% R        Machine.label :=sprint("machine_",Rows);
; e: h- h5 i! X        Machine.ExitCtrl :=ref(Leave);
- f, @  X  P8 K- x$ I: E/ R/ O       
        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]);
3 f5 o( E( c' _/ S                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
; x, G# P0 D' m* Y' Y0 B3 Q        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
2 G' O6 o1 c% H, Tend;

五五

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

wudi

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