程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
9 j/ V' U5 {4 k6 n5 m4 t        MachineName,BufName:string;
8 z7 m: Y, A4 |+ J        Machine,Buf:object;
do
! H7 f" r  f" c* K8 d  ?9 z& d        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
# h( s" s  [3 P4 U( B                        print "Yes";
                when 32 then
                        print "No";
, s! T; U8 `+ M  i& y" c                else
                        print "Cancel";
8 a6 y9 b! o  @5 g( r                end;
. ~9 j1 j& ?5 v0 E6 W7 I        EventController.stop;
4 o9 J+ m! g  v! O, _! hend;
9 x/ c; h: D& w5 cPartsTable.delete;
for i:=1 to Number_Of_Machine loop
6 W* A$ D! v6 Y        for j:=1 to Number_Of_Machine loop
: Y; G/ p. m( E. G% y                if j<i then
. }; ?: K* ?5 b/ s7 |8 ^3 F                        if D_From_To_Chart[j,i]<=0 then
+ D  v/ P0 p- ?                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
) n3 e. u( V  H                        if j=i then
0 O& h# o( u& ^! p                                D_From_To_Chart[j,i]:=0;
                        else
) C1 W" j/ \7 R4 t2 a1 l* x                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
$ d4 n# i6 q8 W8 c, q2 j8 S9 }3 a, U0 w                                end;
                        end;
) X9 f2 o5 J  h5 a( m* s3 d7 s                end;
        next;
3 x- V  x6 v2 _) }3 jnext;
0 z4 p. l* ~; ?. J0 _& N' G+ W$ j, O  E
0 f; W! B( V* h4 h$ Bend;
3 n# l, L( Z, f5 {/ y/ X: R
    Lines :=0;
5 M2 U7 K8 M# {2 C3 V) z        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
/ {$ l( y  Q* \, t8 F" N% R# I) a        MachineSequence[2,i]:=Rows;
; T( m0 D7 `! _' m1 H) _$ ?+ E& }            for j:1 to Number_Of_Machine loop
* Z; Z. N5 ~* i7 W- D/ h) A, m, w# k/ M                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
  [( y4 W$ ~" \                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
. p$ E0 l2 _! y+ {1 D                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
9 @8 y6 D5 ?8 P5 q        next;
3 J" i3 L/ o$ g" r, r        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;
6 }& G3 q: E3 S, C% l. k        Machine.ProcTime :=5;
: S% b  w% g, J4 \        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
( A8 O& [4 x# P2 S; @3 i       
' g/ y1 i- N! Z' k( q' H. R3 q        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]);
. _' Q; D/ u6 `8 v: q                 Buf.Name :=BufName;
) D0 ]) {2 u" H  Q0 u1 Y9 ^        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
) o) X. [7 W) J; {next;
end;

五五

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

wudi

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