程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
; S8 U  k0 b' F$ [( F& D$ u2 t1 j        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
# K3 |4 e+ {5 L& g# p- ?$ S        Machine,Buf:object;
do
  p+ V4 Q' O0 a. |' r0 p  f        if Number_Of_Machine/=D_From_To_Chart.YDim then
+ w1 A/ {0 e$ ]1 `6 t                inspect messageBox("Number Wrong...,",50,13)
$ O' k- [6 V- D" z/ u                when 16 then
                        print "Yes";
                when 32 then
% f- l3 `$ s( Q: ^! p& d) S6 e                        print "No";
                else
                        print "Cancel";
. }5 D: w; s* }3 R3 Q) e( m. C7 S                end;
        EventController.stop;
  v: H$ a: R# G  V% R* i* Pend;
PartsTable.delete;
' o$ I, C! A5 O4 E, ]/ V0 n" mfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
0 D, b. r  z+ x5 ]# Y( K/ e                        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
3 ~' c6 [# s1 q4 }* G# x                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
5 w' h4 P! @' a% l5 t: y. `6 k: n                                        EventController.stop;
8 L* ^: A! I8 i' y+ u" C                                end;
                        end;
7 z6 M1 O5 o+ o  A  w" S                end;
2 q( p! {6 E9 n) N4 G        next;
next;
1 U2 F1 ?9 c$ t+ o
end;
4 }; k2 |8 n; @) b* L: _
3 o% |6 N0 J& f' a# k# L    Lines :=0;
        for i:1 to Number_Of_Machine loop
. y/ D+ C' I& ?( ~        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
& m$ h. C2 C1 G, q& F                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
% d% x) R; j1 [7 G, t. V                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
3 [8 P' C2 n# D3 D) [7 d$ y                        PartsTable[5,Lines]:=Rows;
9 I; v! Q5 l8 ^                        PartsTable[6,Lines]:=j;
                end;
" h3 ?3 w+ i8 h4 V/ @        next;
3 k& d* y& q. x! G) p        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]);
        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
$ _2 J8 u* Z0 G# u  u8 t! M' X, s        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
$ U" \" m3 h3 I# f  }  w8 u" J% V        BufName :=sprint("BF",Rows);
$ `6 K! E$ Z0 }. H; z# p        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]);
& i2 i) f1 S8 K9 m/ k4 E                 Buf.Name :=BufName;
" y- C3 m7 I- r) J4 N        Buf.Capacity :=5000;
: t* t; m; Q4 A5 M. V0 [' v8 z        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
0 d4 ~4 l: H& s, q7 v

五五

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

wudi

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