程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
* y& k. r9 X0 H# E% D  v. u9 }) i        i,j,Rows,Lines:integer;
+ o6 j: u. N8 ~( x        MachineName,BufName:string;
; a0 C& q/ E2 q        Machine,Buf:object;
do
0 h# i$ e: o0 x+ u" @) W  G+ z        if Number_Of_Machine/=D_From_To_Chart.YDim then
$ R: p( X6 S9 w3 ^! _                inspect messageBox("Number Wrong...,",50,13)
7 P- N3 f" D& F& b                when 16 then
                        print "Yes";
' M) M0 C1 u. W* K, H                when 32 then
0 Y+ I6 G( b2 F, U3 ]) r5 _4 y7 w                        print "No";
                else
                        print "Cancel";
                end;
        EventController.stop;
* h' {! t: @2 G1 Wend;
# w$ b6 \" t3 dPartsTable.delete;
for i:=1 to Number_Of_Machine loop
8 B! C' X0 _, ~6 U0 ~1 F        for j:=1 to Number_Of_Machine loop
7 v. y+ [7 }2 n3 `                if j<i then
8 Z+ A/ h" M, Q4 y8 e2 T8 {1 u" |$ J: ^                        if D_From_To_Chart[j,i]<=0 then
, m+ O1 \- I: K! p+ P; p  C                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
! r# l  I+ D' o2 E4 I* a% k                else
( A, l' u3 ?  x( a' R                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
) a$ n6 V5 C* W                                if D_From_To_Chart[j,i]<=0 then
: Q5 ^& y0 z' ?: j                                        messageBox("distence<=0...,",50,13);
8 I, _7 K) X! ^5 x1 N                                        EventController.stop;
                                end;
                        end;
                end;
        next;
next;
$ Z7 c' L2 Z% q9 U. K. C
end;
- }3 |+ b% Y, W" y- \1 N
    Lines :=0;
) W! \3 p% u& R/ }3 h* F        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
3 z$ T0 w6 Q* B6 @' y        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
& `5 e: l! C6 v: n                    if W_From_To_Chart[j,Rows]>0 then
9 P% D/ @: L4 s9 X+ w3 T8 e                            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");
6 X- b$ s+ h0 I: t                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
        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]);
9 J6 r0 r# M4 n3 k        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
5 I" H) Z) y* l# J2 A        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
$ K0 @$ x/ Y" b% _8 C  `: P. X        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;
9 C7 L5 S; K6 K" {8 I3 w. T        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
% x) b2 c3 ]0 g8 J8 V' v        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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