程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
! g# }$ v  f' _- @' k/ t& lis
        i,j,Rows,Lines:integer;
' V  c1 O/ z  [2 C1 L        MachineName,BufName:string;
( K4 [, Y5 w+ Q        Machine,Buf:object;
do
( S4 W9 P: u5 l2 B- E7 y0 @: a        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
( j; \* D) p- ^& M( d                        print "Yes";
, T7 U/ {- G5 L$ S! t. j; v+ c                when 32 then
8 i+ ?$ L" f2 J1 N( H( O: `; E) ]                        print "No";
                else
7 e) j- I, j( N0 z  G6 K/ {( M                        print "Cancel";
                end;
        EventController.stop;
end;
8 ]  h' z4 V: Q$ wPartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
* |+ s- G2 C" W+ ]4 T' E& D) i, W                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
  |8 d0 a5 x0 g                        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;
; m! g/ J: @2 A- t: W1 a3 C                                end;
                        end;
' P+ q$ h$ O% }' \: U3 D                end;
        next;
next;
' D$ Y& O: g( B+ G4 f
end;
6 X! o; Q- V: J, l" F6 ^; Z6 p& M
    Lines :=0;
3 B: w: ~3 t* a+ r& }        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
+ w4 u, Z) A6 k' ~& H& P        MachineSequence[2,i]:=Rows;
$ F4 r/ w* Q0 r" o/ q- L            for j:1 to Number_Of_Machine loop
: h' V6 {" x4 s+ d8 {                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
/ S% W/ w; Y% v3 l                        PartsTable[6,Lines]:=j;
- S/ Y6 ]/ l/ X9 J                end;
        next;
        MachineName :=sprint("M",Rows);
) a( B: A0 z' B$ r        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 a$ p- A; }! _! \3 I        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
) P( |/ v" d5 i! V        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;
$ W3 {3 H- B. S7 ?6 [9 p) j        Buf.Capacity :=5000;
7 ^( S  j: `) \5 m8 [5 c. |5 W        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
5 |* L, E$ k. T0 M

五五

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

wudi

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