程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
1 o) V7 K# {0 C7 Jis
6 R( L# p+ A5 s' x. ^        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
8 K  A6 {8 @2 f1 A+ x0 i- |        Machine,Buf:object;
) O5 M7 [  ^" }0 v3 u. Z" ^do
! Y& p# t& Z# `% h6 a        if Number_Of_Machine/=D_From_To_Chart.YDim then
$ G5 U6 s. F# b  B. k- l                inspect messageBox("Number Wrong...,",50,13)
8 W+ }; O, c* P( y; ~                when 16 then
  }3 r6 J4 e# W* Q4 N                        print "Yes";
                when 32 then
                        print "No";
2 N1 H5 _9 [+ Y, Q, D                else
3 k2 h) U  T3 y( K9 ?3 x0 i                        print "Cancel";
- ^8 l, w* m0 O4 |. M) }( v& j                end;
: a( {  z  D5 c: n        EventController.stop;
end;
$ _2 M( B+ ]+ F) G: }PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
* k6 \% O4 J- w                if j<i then
; i" r+ H9 R+ ^# U: y                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
# F! W: K* r6 U1 q' V' B                        if j=i then
                                D_From_To_Chart[j,i]:=0;
1 x: B  \" `( E  T5 M  U7 z                        else
& N9 b3 m* I* W5 W, m0 B* q                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
: p. }# G6 X# _7 ]7 E                        end;
                end;
) g3 f/ M3 K# u/ T- r        next;
5 d& b; }& A, U  Q% G, K1 y9 ~6 ~4 |next;

end;
8 }9 G1 o6 P1 Z& ?2 C, K! m5 T
    Lines :=0;
        for i:1 to Number_Of_Machine loop
; n0 z7 y! f) T1 S( k        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
/ c% G" P% d6 I' ^& X0 s/ d        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
& V6 C: a, }4 t  b' I$ |1 Y0 @                            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;
/ }2 e! _# i) C7 d4 h  t, F: Z) z' L                        PartsTable[6,Lines]:=j;
                end;
        next;
        MachineName :=sprint("M",Rows);
6 M. H, d  g2 l( m6 Y3 ?        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;
* ^& Y. i3 [4 t  T; i. h        Machine.ProcTime :=5;
' U, Q4 a, |" h  V( [        Machine.label :=sprint("machine_",Rows);
) u0 Q  R8 C9 f; g        Machine.ExitCtrl :=ref(Leave);
       
7 r, H4 W9 v* f2 p0 y* K/ 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;
        Buf.Capacity :=5000;
8 R% `/ U: V; x, @1 b' d4 B        Buf.ProcTime :=0;
: E% Z' ~6 A; X* g% W4 t        .MaterialFlow.Connector.connect(Buf,Machine);
next;
4 Y# z4 d* U9 t1 D9 k* a) \3 `, Pend;
- J2 z" B5 E4 K/ E' ~$ W. f7 P4 Z" S, u

五五

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

wudi

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