程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
, e7 B4 X$ p: F' ^+ R& Y) ]is
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
( t: y! [/ a7 @' T8 ndo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
# c( d) S/ Y8 K4 r, _: E9 Y8 O                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
2 Z$ D, {4 Z$ t6 ~+ i                        print "No";
                else
                        print "Cancel";
                end;
        EventController.stop;
end;
PartsTable.delete;
; n$ k$ e* t2 h6 |9 tfor i:=1 to Number_Of_Machine loop
3 s9 ^8 u$ [2 X8 B3 v  _9 O' p% g        for j:=1 to Number_Of_Machine loop
                if j<i then
                        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
2 j" _' [+ G9 [# L. a" ^                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
& _" z! l" e5 z2 o                                        EventController.stop;
) B6 n5 K  `' p0 t5 f                                end;
                        end;
                end;
* n. Q' t$ ^. r: ^' P        next;
. H0 n2 A; K# ~% p6 \' r- \next;
) r  E1 X9 f' L4 V2 t& s8 F
end;

" R. I! n* Z9 h9 N* n* Z0 o1 t( r    Lines :=0;
        for i:1 to Number_Of_Machine loop
  V  a  `! L+ b/ q' Z' J        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
8 Y4 e0 O; g" V8 c        MachineSequence[2,i]:=Rows;
- c7 r) i  r- ^& ^9 b            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
$ `* J" z- W7 D6 D% j/ N                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
! @2 h- _1 m" n9 O2 R% ]0 u                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
: ^$ Z" u2 ^) T; G2 b" j                        PartsTable[6,Lines]:=j;
                end;
) E+ `% ?# a- b2 d        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;
! r6 ]. Q+ r" R2 ^) R+ |" S        Machine.ProcTime :=5;
& q, i& R0 r8 V  C) Q/ T* S" q        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
: C3 o0 E" ?! H3 f4 X$ r3 t7 J* n0 S! \       
/ t6 ~$ t. E  d- j. ]" f* V) _& P( c8 [        BufName :=sprint("BF",Rows);
; C" `2 n8 R7 m3 s% _! F+ {        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;
* J5 @' r# T8 p        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
4 p5 m' x' b( Y% D& W2 G+ \0 S' C- Xend;

五五

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

wudi

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