程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
( A5 ]+ V0 i2 i3 ^! t  Ris
! f2 s# H( V/ |) p        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
" Y( P$ }4 O0 W/ y' t        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
/ r" Z4 L3 H* A% l9 o7 g                when 16 then
                        print "Yes";
6 ?3 H( {; G5 Z                when 32 then
+ `6 Q1 S6 r5 S$ j. _# ]. P                        print "No";
9 X* u& L6 b. _5 x; H$ ?                else
* o- K, i+ }8 C5 R1 [% i2 c1 K                        print "Cancel";
                end;
4 `5 y1 K6 Z7 }        EventController.stop;
end;
PartsTable.delete;
* U0 g- J7 W) ]/ m; @for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
2 o0 e) x+ K% G* K' V                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
3 W4 _/ T. g9 A: Q/ D' p                        if j=i then
1 @( s7 }' N3 i* L                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
) [. c* N: l' d                                        EventController.stop;
; @5 B, T, L9 K  [6 T" d                                end;
7 n$ }  W6 O( ], I; s. y! M5 w                        end;
                end;
        next;
next;

9 T0 |8 v% r- u% _$ {$ ]/ }end;

. z) E" u, C# R2 j    Lines :=0;
        for i:1 to Number_Of_Machine loop
) B4 c  s0 _5 j3 r# U( M$ ~* h        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
8 f/ O  s2 H  F# U- n  H' }            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
) O6 I" Q& _9 K" i3 ?                            Lines :=Lines+1;
: y+ ]: N+ l8 B# A2 M                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
, v' g+ O4 ^9 {% ~                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
5 k2 e* K# v  h9 R( D( g; C. ^                        PartsTable[6,Lines]:=j;
. s' c6 C7 K; B3 Q+ _; `                end;
2 r& J: K1 R. a0 V7 ~$ X) b        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]);
0 X. J" U) N" S9 K        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
) Y6 m- g1 K+ c        Machine.label :=sprint("machine_",Rows);
/ i# ]/ d* ?& o4 L1 @        Machine.ExitCtrl :=ref(Leave);
  f! D4 F" n9 C       
( l4 a8 D# }1 b& P, Z* q        BufName :=sprint("BF",Rows);
% v; K1 e5 L# U- k6 I        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]);
' ~! H& ?3 s& a- ?' F$ T) A3 l                 Buf.Name :=BufName;
+ N. X0 G, T9 `$ `& y% y        Buf.Capacity :=5000;
0 R! H9 F3 L% F+ G        Buf.ProcTime :=0;
8 m/ ?' ]' o: {6 ~/ N6 G        .MaterialFlow.Connector.connect(Buf,Machine);
/ k) ~& ?! h7 ]- O7 ynext;
8 u$ i2 P% Z+ E0 c/ cend;
! B: w+ H, R  N

五五

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

wudi

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