程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
" N' H. s  P' ~* J* A/ U        i,j,Rows,Lines:integer;
+ l  A, L$ G3 G/ k$ I) D, l; E        MachineName,BufName:string;
5 }* s9 o% ~4 B        Machine,Buf:object;
! y2 v* _1 n, n7 s2 edo
& T" s. l5 @, H/ N  W+ K% n( T        if Number_Of_Machine/=D_From_To_Chart.YDim then
; [# J( ?3 H+ A* V3 ]. {! J. k                inspect messageBox("Number Wrong...,",50,13)
; O# L  u4 E$ @                when 16 then
4 B* |$ s  E' k- K: t4 H; w; X3 B0 Y                        print "Yes";
                when 32 then
& r4 H1 t# p  U$ S                        print "No";
. [) \+ Q  `6 W: d5 }  V                else
+ V% b) D" m9 @2 k) A                        print "Cancel";
: ~0 j4 V( u5 W                end;
        EventController.stop;
end;
* c7 m$ k$ U& O0 I5 SPartsTable.delete;
for i:=1 to Number_Of_Machine loop
) l% A  e) }! S6 I) M" }        for j:=1 to Number_Of_Machine loop
- u  Q+ p/ N. x8 @: c                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
+ V  D2 D9 F- x) {1 Q3 c4 ^+ \                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
2 O( z7 x5 b. n" o                        end;
                else
4 `, i1 N, X0 S. R2 z                        if j=i then
                                D_From_To_Chart[j,i]:=0;
/ ?# T9 F2 {" }/ ]0 p2 S( n' T' x                        else
                                if D_From_To_Chart[j,i]<=0 then
! {1 C5 Z2 |8 e                                        messageBox("distence<=0...,",50,13);
1 i3 R+ B  t9 L8 j% ^' j# W! c                                        EventController.stop;
3 X) q2 M, ?0 k7 \; k                                end;
                        end;
4 e* y" p) k7 _$ z- `                end;
        next;
* d! p1 S2 {! `8 e$ L5 a3 _next;
$ w  z' H4 Z1 y  {" E; @: Z
end;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
: w  T4 t5 l0 y$ f- f7 T        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
" ~- W2 Y/ C$ F7 H) {  t        MachineSequence[2,i]:=Rows;
( y  s6 c5 C6 E" b' u5 D8 W$ ?4 Y            for j:1 to Number_Of_Machine loop
, G4 f) R3 z1 b) y( I; ^: ?: a                    if W_From_To_Chart[j,Rows]>0 then
; t1 Y6 h$ x" E% @  o) |' L                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
- a+ J+ ]+ T' C2 `  m                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
        next;
/ W6 Q7 \) |2 G: Q- t# Q  i1 S        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]);
' ?& J% C. N  m# m% D% F; k        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
4 k4 l6 c! N8 W% q6 E3 z6 N  N7 `        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
& p( A% _2 \5 N3 Z; l        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]);
; ~( X$ x% f1 n                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
( t5 U  H! [' q6 k0 m: {        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
$ c+ H& w) v5 Z$ v2 r3 bnext;
end;
5 V6 C3 \$ K- }( J. P! b) M+ p+ ]

五五

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

wudi

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