程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
3 K3 f$ u( E0 j$ L7 b2 O7 ]- Uis
0 [6 G4 ~% x, E        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
2 P9 F2 g& f# y0 w/ l' \                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
5 ?9 l8 J4 f- O0 A) v/ z- E                        print "Yes";
" b1 C) K# U- p                when 32 then
' B$ U( K' ?( Z5 _" B! M, D2 w2 y                        print "No";
# s- A4 G+ I! R8 G7 f                else
  z* a8 t% k! d( @7 a* T& j                        print "Cancel";
) o* ]5 Y& ~8 \7 O                end;
- h4 {% @6 V8 _/ e* e% b* n        EventController.stop;
! X4 a8 \5 R2 _" r: H1 f, Vend;
PartsTable.delete;
$ j- t2 h3 C0 O  y( }( Qfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
/ Q. _8 J$ d; J. Z" u9 P! C1 W, e0 o                if j<i then
3 ?" g5 g* R1 f0 L; T7 L) I                        if D_From_To_Chart[j,i]<=0 then
  a0 H# h' D. d7 T/ Q7 Z9 @0 s                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
: b1 Q8 U: W2 l                        end;
4 A) ]: q2 h- Q9 L3 |                else
                        if j=i then
& G. J% P# v# H' J                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
                end;
& j, G3 Y1 v- u/ b- E        next;
, W6 f( r! S9 ynext;
$ y/ f5 \! L1 A/ U* x, C: m' f
3 C* f. r4 I/ Z) Aend;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
* X  G: P$ C3 o( t1 A                            Lines :=Lines+1;
) I* C) t. ]# f. m" ]1 B. U" Z                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
' {" d1 \+ {$ F) j% X: ]3 ^# ~                        PartsTable[5,Lines]:=Rows;
+ G1 l* q% U7 O6 F+ ?                        PartsTable[6,Lines]:=j;
' z1 V/ b: `+ d# _# j* ?  M                end;
1 ]2 }' ~: Q8 Y6 F, c8 i        next;
        MachineName :=sprint("M",Rows);
+ z7 [7 K9 i* g7 z! X$ A# g+ j3 t! o$ C        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;
3 c( g3 Q6 k$ I2 z# u  e        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
; P4 _( \4 d0 ]5 x        Machine.ExitCtrl :=ref(Leave);
       
) N% V+ s) y( k0 I+ B; A! c2 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]);
                Buf.Name :=BufName;
        Buf.Capacity :=5000;
. L) n2 O. M1 [6 t$ x6 y+ h        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
+ z- Z* Y# I, p. n5 h; @$ Bend;

五五

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

wudi

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