程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
, d2 T3 X6 A7 \5 l0 B" z        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
do
, a+ B' a, n1 [7 n2 X        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
( A$ s! ]7 J& _; d# n/ J/ ^/ f                        print "Yes";
: T2 E4 O$ D' m8 k& u& I                when 32 then
/ h0 J7 f. P' |, Z                        print "No";
4 [. p5 p% l' ?( [                else
                        print "Cancel";
                end;
        EventController.stop;
end;
PartsTable.delete;
" x6 |2 A9 S* p& c# dfor i:=1 to Number_Of_Machine loop
: i! U; F. A: ~% y- k        for j:=1 to Number_Of_Machine loop
4 D" L) U, S0 v" l& O; ]# g* ~6 Y$ g( K                if j<i then
' e  \8 w. J6 y3 o, C0 y7 @                        if D_From_To_Chart[j,i]<=0 then
! L5 Q% T8 C& H. s                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
4 P$ X7 }) `) A                else
) I" L7 z1 x, S/ y                        if j=i then
                                D_From_To_Chart[j,i]:=0;
" a4 v+ Q0 F1 c; D                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
8 {, H9 `  a$ G, j' b                                        EventController.stop;
                                end;
                        end;
                end;
        next;
* E2 ~. o- a4 Tnext;
2 Z) w7 C" R$ L4 s: J) t
- k0 f& w  G! z; |) }+ P- v8 Aend;
" r# ^# m: U& Y7 X! X
    Lines :=0;
  V! X$ |! z! |; ~' t        for i:1 to Number_Of_Machine loop
) o- O8 s- o, ^0 ?; \' z! |        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
! L$ b2 g/ L9 J! c5 B9 }                    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;
/ a6 _2 {: p3 m$ C3 V                        PartsTable[6,Lines]:=j;
                end;
9 x% R6 O6 P$ s        next;
3 |- N$ I5 e0 }2 e8 T" I2 W2 g        MachineName :=sprint("M",Rows);
/ j+ R6 I/ [+ t        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;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
8 R' j, D& P% u! ]+ U5 G' a: Y       
        BufName :=sprint("BF",Rows);
9 x% y% J: ?* t% _) {3 k        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;
/ V7 J, q, P4 E- d        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
' `( E7 O# ~  ], Snext;
end;

五五

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

wudi

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