程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
8 ]6 [9 o9 W2 [, r6 q        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
- ?, e4 ~/ C9 o" O; U        Machine,Buf:object;
  {& E1 {, o) w' [, w8 odo
; k2 T1 {2 l! j- f" l; U        if Number_Of_Machine/=D_From_To_Chart.YDim then
% ^& \8 F1 t2 D: H: J# d/ W                inspect messageBox("Number Wrong...,",50,13)
( n$ s7 z; u% p. {                when 16 then
                        print "Yes";
                when 32 then
" @: j$ w) e4 X% z7 U                        print "No";
$ M& a3 I, q; @" ]/ t. b1 y0 p                else
                        print "Cancel";
                end;
" c. A9 B/ O% r2 \5 x        EventController.stop;
' E+ y) M0 C6 O) Z/ u" E8 ^& Gend;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
. B$ V# ?5 J; d, V  |, V, n/ o                if j<i then
- Q0 N! C: Z# b4 ]                        if D_From_To_Chart[j,i]<=0 then
8 h$ q/ B7 w2 F0 x                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
8 Y+ c% k) y3 n2 o8 B                else
* g. |0 M3 ~6 N; H* m                        if j=i then
2 q8 D( a! \1 U4 c+ _                                D_From_To_Chart[j,i]:=0;
                        else
; O: c2 G- m3 I/ }# \                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
: T( Y  S- ^4 @$ z, e  Y: g                                        EventController.stop;
                                end;
                        end;
                end;
! B- R; U4 P& A' [" j        next;
3 L7 z7 B1 x4 T8 j5 v; r" Y; x6 Lnext;
0 ?+ V4 E" a% D+ z% r: @
% D; i& y, @3 ~end;
' n; n- ^) _! z  n$ L, W
$ P# n( B0 V% a8 P0 M    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
3 S/ H+ T2 O# T" v                    if W_From_To_Chart[j,Rows]>0 then
4 M6 J2 Y3 F- o. c  W                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
% P9 D* H7 Z% Q( V" M                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
+ e0 _9 l' V- M2 A$ H3 ]                end;
- [! U* f. n6 F* M$ }        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;
' {* ^$ S/ |6 g2 T        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
; H, r% d1 z. Y, a5 \! n; X       
        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]);
1 j8 S0 g* h8 Y- W' _& D                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
3 y) P! R$ `; }+ k0 w! S$ @        .MaterialFlow.Connector.connect(Buf,Machine);
8 i! l7 y3 ~( H5 q  w/ e" F6 Hnext;
3 m0 E' H6 ]) t- }end;

五五

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

wudi

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