程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
# ]  }6 n+ V6 v- u7 n' ?6 K        MachineName,BufName:string;
9 U2 _1 Y4 G2 s% b        Machine,Buf:object;
: r& _2 o( ?! t1 s# t8 }! d/ Gdo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
5 _9 o; p+ e, x1 J' W                when 16 then
0 i5 a  a% X) w4 L) o8 X" ]0 @                        print "Yes";
+ ^' q' u  c0 E! C6 p2 p: U                when 32 then
                        print "No";
                else
4 B) q1 N  H8 I+ Q; L5 J                        print "Cancel";
4 V' N0 B4 \' W  J& I# k* q                end;
        EventController.stop;
, H* j+ N0 Z5 fend;
1 C  k# R0 G7 T, D8 {- Q  \/ VPartsTable.delete;
& N1 C" Z1 v% Q6 q  Dfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
( z  b( n# d6 z+ ~+ S/ I  |                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
6 k/ A) a5 y' g9 y                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
3 G) r6 v" |' ]. h" S                        end;
! b$ o0 M( e' _/ ^% H, {                else
0 |4 L; M6 d' y7 U, F1 p( {# g; d                        if j=i then
                                D_From_To_Chart[j,i]:=0;
4 z" B4 G6 F1 C+ z) X                        else
                                if D_From_To_Chart[j,i]<=0 then
8 r; x: b" F/ Q; x0 T0 J0 E( L/ ]$ T                                        messageBox("distence<=0...,",50,13);
( @: A9 E8 d9 ~6 \                                        EventController.stop;
1 h2 K) U  E* f4 t8 ^$ p                                end;
* g3 S. `) B" m% T- k* b: |( b                        end;
* H/ }+ z3 {* Z+ P. Z/ Z& R( f                end;
6 J4 b. A  B- M9 b* N" ]$ C+ _        next;
8 N* Z# R/ A6 y$ hnext;
  J. t/ k* ]. W- N1 t
end;
: _5 {4 U8 f. {
* H2 ~6 v7 w& r" G! y    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
$ M, |2 q% ^) i9 r( t        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
4 I% i2 Y* w  B7 @. K* {1 M, W                    if W_From_To_Chart[j,Rows]>0 then
  P2 B$ p3 c, M( i                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
. u) _5 l% S5 D1 P8 Q; W3 P# z. y                        PartsTable[3,Lines]:=sprint("Parts");
1 t8 d/ _: m9 }9 ^                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
        next;
9 U/ {- V7 B4 }( O7 h3 G' z, V. _        MachineName :=sprint("M",Rows);
/ Q5 u) N. d7 ]% {& a2 {: {        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]);
) i5 K0 Y$ H, S. ^) w        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
+ B' y; z2 t7 ]        Machine.ExitCtrl :=ref(Leave);
: s5 N5 L* x0 N% v; r* S" U       
        BufName :=sprint("BF",Rows);
* R4 o  ]5 M4 Z0 Y( u: x        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]);
1 ~5 m9 i% R# J* a) t# K                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
: m) G+ u5 Q) M; p        Buf.ProcTime :=0;
9 m2 a/ I! }9 _. g) _        .MaterialFlow.Connector.connect(Buf,Machine);
next;
' B7 P/ n( q/ Kend;
, \! D5 T; T( d( R( g% |

五五

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

wudi

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