程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
4 I/ ^. y8 v8 l! t; S        i,j,Rows,Lines:integer;
" I3 g' I6 a  C. j( t        MachineName,BufName:string;
! u. G# r" C) p: M( O" f2 }        Machine,Buf:object;
do
% n( J3 U9 w1 }; w5 N        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
# o( {) u% l7 u6 d& i) R% ~                        print "Yes";
2 e. C* r  C9 r; X- p                when 32 then
* M& d1 m3 V3 J# ~3 i                        print "No";
2 ^+ Y+ f; }3 W/ R4 r  j6 b7 y+ q                else
2 T2 N1 B/ L' C! D) |5 L                        print "Cancel";
                end;
+ H( f7 ^; @- M- w4 E, a        EventController.stop;
: B9 o8 D1 ?: s3 ~end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
. C/ i. o% m9 r) Y; V                if j<i then
3 D. O/ U) G! i- o                        if D_From_To_Chart[j,i]<=0 then
# n# r" H3 N, w. r! S: _7 D% N8 V                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
9 Y; W. i$ {' _& S0 |- n8 d  {                        end;
+ o& d/ s. T9 r! l                else
0 J; [# ?, q# y  h' R' F                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
3 V3 t8 y8 R# N; _; N. {                                if D_From_To_Chart[j,i]<=0 then
& c4 k1 V9 }& P                                        messageBox("distence<=0...,",50,13);
, g* V2 q) P7 L# s. F  w$ \3 x  C                                        EventController.stop;
4 L+ h+ K3 {& p                                end;
% ^$ n3 e+ `3 W# ]% h$ g                        end;
  S* X4 h  P* H/ U                end;
        next;
next;
9 ]7 h% f3 s9 G: H/ v
end;
% e8 ?, s* ~% ]9 s0 M+ }
    Lines :=0;
6 j. K6 z6 E2 C) V* `" r. w! S        for i:1 to Number_Of_Machine loop
9 h1 l) P0 W" d% T        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
' O, |+ o2 O( V7 r9 j6 f/ J4 _) D. f        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
: W! E0 w4 U2 U) _: m                            Lines :=Lines+1;
) ~. V4 x: B! ~0 n! r9 E. o! u( y                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
7 ?* ^; b8 f9 W& w                        PartsTable[5,Lines]:=Rows;
8 E) g6 j( C- D* _+ `                        PartsTable[6,Lines]:=j;
                end;
3 m4 h7 S0 P: O1 V' O2 z/ T  {- p0 |        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]);
        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
) W9 V/ ~0 v! i& Z$ S2 I        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
8 R1 M) _6 i; [& H$ \, u2 E, S       
        BufName :=sprint("BF",Rows);
# _2 R8 u, ^+ ]1 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]);
+ a3 R' j. z. R0 j                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
* u6 i0 {4 Y. J. P. B' tend;
8 W, u) ~$ @; O9 h2 X# |2 N

五五

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

wudi

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