程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
( T+ a5 F1 H/ t" m+ p        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
5 U0 m% K! F* I/ w8 I' Z1 o! K        Machine,Buf:object;
do
; y6 O3 ?9 i5 }$ _! V6 ^        if Number_Of_Machine/=D_From_To_Chart.YDim then
7 V8 A" U4 ]( o1 X1 L. m                inspect messageBox("Number Wrong...,",50,13)
4 U" r9 m/ y* C  b3 z- z                when 16 then
                        print "Yes";
+ N9 G$ j3 P" q6 l6 g0 d) x0 j6 R                when 32 then
                        print "No";
7 b( _/ u6 b4 z6 a/ ?! h                else
                        print "Cancel";
+ H6 ~6 v* C( L2 m                end;
        EventController.stop;
9 ~+ s# ?0 g- ?' l5 F2 N5 T. Cend;
PartsTable.delete;
5 k1 ]6 a( ?. K$ i9 t0 lfor i:=1 to Number_Of_Machine loop
4 V) l# _  {' `' j6 T        for j:=1 to Number_Of_Machine loop
  w' S9 R# f& K5 z                if j<i then
4 J" K" |8 ?3 P5 z; E3 i                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
7 j, N$ s# k8 I: M+ G4 g. B7 `2 c                        else
, [# ]; o0 m# A& S                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
. i" Q* u; [8 @                                        EventController.stop;
$ u, s# k& U1 I5 M/ A                                end;
8 b! y( Y0 H4 M: i6 Q2 i) o                        end;
  F: q# A& U/ P/ X+ N                end;
        next;
' f; W+ H6 _1 p' g; Rnext;

$ ~8 \3 ^* K! }# B6 b6 |" m8 k: Zend;
  D0 h& |" ^6 C2 e
& P6 q; l; a) |& V: R9 v7 h, U    Lines :=0;
. s  h- a- E* E& I) O" k% d& J        for i:1 to Number_Of_Machine loop
6 l' ?9 k) Z( d$ r4 W3 k) }/ ?        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
9 _" C' A7 s+ Q* m0 \2 a        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
# ^* Y8 \4 {3 j, A, W5 f- T                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
) r9 D4 H7 e. H$ {7 |" A6 _                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
2 s0 ?" s" n! S4 Q2 I                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
8 V0 [0 A0 n. f- [1 ^                end;
7 U6 g- h3 V9 w. f$ m, \& ~        next;
# t) b: u# ~/ z3 e+ J        MachineName :=sprint("M",Rows);
9 H" t; o5 L8 _2 u4 v        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]);
- Y8 G% H# ?4 G0 i. W8 v+ w6 Z        Machine.Name :=MachineName;
; p, k6 [  X( t. P& d        Machine.ProcTime :=5;
3 C/ }: d  m1 F2 q! |        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
3 q3 P- h' o, s) N0 v8 z, S        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]);
+ @7 n' y+ Z1 U4 _- V1 d) F7 S4 H                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
3 P0 y7 p5 I/ E* r        .MaterialFlow.Connector.connect(Buf,Machine);
) H) W0 w3 X7 t: J( ?4 Anext;
* Y& y! ~) M7 ^) y9 vend;
: W7 s( D0 w6 h0 Z9 _' |

五五

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

wudi

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