程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
% y0 N4 h- P: |( |is
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
5 }2 d) _* a9 ^# G% v        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
- Y1 [% Z" ^" u# e                        print "Yes";
                when 32 then
                        print "No";
5 t- Q, l. [. J- T7 U0 h, ]& g$ J1 g                else
                        print "Cancel";
1 u2 n2 @: K+ `                end;
        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
. F; ~1 x5 S" E2 t& r  r" H        for j:=1 to Number_Of_Machine loop
) w, B8 X+ S1 ]                if j<i then
% a- H" p; K5 m4 ^8 s2 J+ W/ G                        if D_From_To_Chart[j,i]<=0 then
# w, V9 V6 s( [8 V: j  N                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
9 z3 G: u4 d( S3 n( g                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
4 K) F* @+ a. ^+ q  Y, ?# m; F                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
$ z+ G, L: W, Z  H1 U' {                                        EventController.stop;
                                end;
* p' ^3 c6 t9 d1 F! M( H- y- U- m                        end;
                end;
* Y! u0 n% J5 g+ X        next;
! F8 k; l( r0 |* x3 X) d5 Inext;
8 o$ [! A9 k3 S" _4 x8 r% T
end;
) W7 r+ t6 x$ R: n8 g
    Lines :=0;
! ~: D4 e5 L7 U' T& w0 G% p. u        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
7 ^1 e: ?; Q& s, i4 e1 ?! h        MachineSequence[2,i]:=Rows;
2 {2 c; @9 ~" h1 s* a) F            for j:1 to Number_Of_Machine loop
* T# a8 A7 O! I, h+ Z" K                    if W_From_To_Chart[j,Rows]>0 then
4 O7 `" \% _! \& E2 r: M: t3 [- p                            Lines :=Lines+1;
! f% s! _) b9 f. L, Y$ Q4 U: A                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
& [9 f* A7 m! u3 l1 N, L* C                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
0 E/ E5 f) v8 f5 M) O                        PartsTable[3,Lines]:=sprint("Parts");
; C+ c* O7 c# x7 d' i                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
( `" i! M  f1 p& t0 o$ Y2 s                end;
7 _3 [( B* }1 v3 e9 v        next;
2 C) [9 s5 t1 a+ u5 O        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]);
6 b1 P. I- u4 K- `9 N* K) c* y9 f, W        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
! P6 C8 O* j8 i6 ?* S        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
7 u. W# s, d0 W% P% T       
        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;
2 R& S6 {0 n' `: ]1 z6 z  s8 s        Buf.ProcTime :=0;
( E# q: y# h9 e; Q9 ^3 |. `$ j        .MaterialFlow.Connector.connect(Buf,Machine);
$ P9 L3 h$ z( T% Znext;
* G- \! u/ R: Send;
7 Y! H; Y- o5 [* l8 M2 D  X6 C' X: x

五五

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

wudi

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