程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
: m0 s! K) f: i0 k/ u9 kis
        i,j,Rows,Lines:integer;
6 ^7 f2 [$ Q0 T, \/ ?3 }6 z        MachineName,BufName:string;
5 H2 Z, k& ~% q' p; ~* \" M: |        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
  A9 v" d6 x  m) ?; k4 ?                        print "No";
5 G: f2 p" Z. L2 Y9 n3 v                else
8 C' [7 W1 s& O                        print "Cancel";
                end;
        EventController.stop;
end;
" I* A6 M7 K0 A  ~' N7 NPartsTable.delete;
, f# q: j  L& Z* r: D7 K$ o! H" ofor i:=1 to Number_Of_Machine loop
& Q( R9 ^4 S" T; s        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
                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
6 z8 B: x( c" f0 ^; p# z                                end;
) C0 F% L9 J1 c3 l3 Q( b                        end;
                end;
        next;
1 u$ j: H  s2 G) z! {, Anext;
# a* A8 I& l" M! b
end;
& w1 t- L. O  `2 e! f/ U
    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
3 B5 {( q4 Y* }# G" G, Z/ b# E            for j:1 to Number_Of_Machine loop
" Z1 [. N5 g- c: a8 t: N; g( u. A                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
- [& K4 E3 J( w                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
4 h$ @7 q) J- O& q( w) L2 d                        PartsTable[5,Lines]:=Rows;
1 P1 R/ i2 }& p1 \1 h, ^# `! o& W                        PartsTable[6,Lines]:=j;
6 E* A; y7 I; |: r5 ?, S- w! Q3 P                end;
        next;
        MachineName :=sprint("M",Rows);
; d: N/ V8 K' m; R" z  k        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]);
7 ^' s$ X2 Y  m0 @% W" b% Q. [        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
' D$ G2 o* A( C7 |$ T       
0 V8 \- H9 v0 L( d2 R* |  B8 P& f        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]);
3 ~# T" h& a  }4 G                 Buf.Name :=BufName;
5 d% |' _) N: H3 Z8 Z6 V        Buf.Capacity :=5000;
2 W5 a- N% b% [1 ~4 ~' @; [        Buf.ProcTime :=0;
$ b/ g2 V9 ^( u" k& b- a# H% n        .MaterialFlow.Connector.connect(Buf,Machine);
next;
6 \: ]( {, M5 M+ ~9 Oend;

五五

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

wudi

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