程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
6 f" H9 `9 V! m" \' [" U+ Yis
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
do
& }, B7 m) [1 v3 M' U        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
* c7 o) u. G) l1 M; {                        print "No";
1 S' A( W, I6 P5 o3 `. l. K4 z                else
' E7 l! n% `' b  c: r( C8 [/ ?: }2 M                        print "Cancel";
                end;
6 s6 ?5 k8 |& k: I        EventController.stop;
end;
7 i  q3 R! A- I" D& N( q9 S9 ~$ rPartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
9 s- n( n# w8 G# }  Z* B/ A                if j<i then
" g0 b' v# L/ [                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
7 V# t  I8 K' f6 l# u                else
  k( M% r9 e! `  s  z                        if j=i then
% W9 m% Q" U. a                                D_From_To_Chart[j,i]:=0;
                        else
. G. t$ p  H( W                                if D_From_To_Chart[j,i]<=0 then
4 a8 d1 {9 w) `                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
8 Z$ {* d/ n5 o6 X0 S, @% c# m                                end;
' `$ J7 V0 a! [7 C# `" q( Q                        end;
3 S  {. t. q( _! x2 i& i) T                end;
        next;
. t  Q- s0 t7 y) f. Z7 n  m. gnext;
: B% o# \+ j( r' i
) a' A0 P' P& x8 _3 b. Y2 B( i0 send;
8 c& e. O" Q# l# m  E! n+ g
    Lines :=0;
1 A6 V/ w0 X6 I$ [: F$ l        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
$ t3 ?/ j1 Q2 O; X1 X& c& Q            for j:1 to Number_Of_Machine loop
; ?7 I" I$ I! x6 \6 Q' {( R! |                    if W_From_To_Chart[j,Rows]>0 then
- S% a$ H+ i4 e" e' Z  {1 ?* Q                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
7 e$ r9 K* ?2 r8 q8 u( x                        PartsTable[6,Lines]:=j;
                end;
- O* Y% ?, Y- W, q  _; f        next;
  X  s7 z; f# ?        MachineName :=sprint("M",Rows);
* Q5 Z: f) s: \& f  Z3 \" O        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]);
3 ^' p: ]0 O4 n& g        Machine.Name :=MachineName;
9 }, z& n+ N- z# p        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
$ Y) Y6 e% a, U4 e. f. Q       
  |6 B. D% K* @        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;
! `: k4 |6 ?' z0 |6 j/ t        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
5 d4 G8 W% C+ ?' k        .MaterialFlow.Connector.connect(Buf,Machine);
: w& E) F! q! N8 Z; _7 [next;
8 h/ K5 g7 k4 x( a) `end;

五五

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

wudi

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