程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
8 U7 x6 B: }/ p& K2 F3 \is
        i,j,Rows,Lines:integer;
- Y! ]  C! h+ U3 G0 N; r        MachineName,BufName:string;
        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
$ t; K2 R3 B: C( ?                inspect messageBox("Number Wrong...,",50,13)
. ^  t/ P7 t& c) i9 }$ f, h8 P0 I                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
                else
* e2 \) V2 E( {; |                        print "Cancel";
$ O: [& k6 k1 a' K* s6 I' ?+ p1 _( E2 S                end;
5 Q' Z; A& v9 E# Z' n! b        EventController.stop;
* w& I; [. C/ x6 }4 Nend;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
! x/ |3 t/ P8 ~1 R! K        for j:=1 to Number_Of_Machine loop
3 l3 N! Y* c  ?: m4 K+ r+ M                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
0 z/ G0 q  W, o/ R4 c                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
  q6 w2 S- l4 r8 @: X4 e* J1 N  k                        end;
/ H, ^+ O- f9 m: P; B2 k                else
3 m  X7 D" m, O& ^; a- Z4 K7 L, ]                        if j=i then
) w" M! U1 l, @. b8 F9 i8 V                                D_From_To_Chart[j,i]:=0;
                        else
' Q1 ~$ S' k) W5 ]                                if D_From_To_Chart[j,i]<=0 then
5 V5 Y/ a9 s6 P/ L( n4 Q. N                                        messageBox("distence<=0...,",50,13);
7 r9 L4 m, s& n6 Y  [                                        EventController.stop;
                                end;
                        end;
0 S& o# h! j" h/ a                end;
9 l0 T/ w- V" v4 N7 _        next;
  z; M' t5 H3 X& G' u1 M0 s0 ?6 \next;

end;

) m) l4 r5 b! S% u" x% }5 E: y/ F    Lines :=0;
        for i:1 to Number_Of_Machine loop
2 C0 Y& h; y) m9 Y        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
9 t# D+ y; u, K& \$ |            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
4 Z) Y& W5 m1 @( Z2 t                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
8 u8 x! z* \" t$ G. X" f) @                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
" k  K! [  x3 [4 q8 y                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
2 J& ^$ _$ a" u1 r2 W2 d1 b                        PartsTable[6,Lines]:=j;
" |- x1 B" F  t0 l) M" i3 N, @0 K                end;
- W3 Z. Y& s1 i% t; F6 }& f        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]);
8 b/ u4 g! Y; g* b+ E        Machine.Name :=MachineName;
; ^  I  e! a% X        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
6 T& j: V; V; \% |9 Z        Machine.ExitCtrl :=ref(Leave);
       
1 \7 @$ S- z: R" x; g- L        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]);
* r. W+ w5 F# s- N( o: S                 Buf.Name :=BufName;
5 e9 v( b0 v1 d( d        Buf.Capacity :=5000;
# j  P+ J2 Q( N5 }0 @        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
* G. K. F- ^% ~9 i& a

五五

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

wudi

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