程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
9 J$ q, L2 s( f5 Eis
+ g6 o7 {4 I# s2 E& g6 x/ t5 y        i,j,Rows,Lines:integer;
) G/ i# X6 ?/ ]$ ]. B/ U- s; |  `* Y4 ?        MachineName,BufName:string;
" o5 R' j& J" j3 F/ Y: q        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
2 z+ t* L& O6 _                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
. H" h' z8 p/ {& Z# d8 U                else
                        print "Cancel";
                end;
: L) f" ?5 |8 l4 z; M% ?% P$ C) H        EventController.stop;
% M( D2 E! J6 M+ ^1 v) m! R* lend;
PartsTable.delete;
" D* j7 u+ D+ p4 W; D% M& sfor i:=1 to Number_Of_Machine loop
) w# `' j0 v" m: g0 F" c5 o        for j:=1 to Number_Of_Machine loop
% h! x. d6 N5 S                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
6 \* L# _  f( F                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
                        if j=i then
0 d; b2 o/ {  Z3 L1 G7 l& j                                D_From_To_Chart[j,i]:=0;
6 N' j% m4 B5 u; Q                        else
! n2 n5 E6 b! N0 Y% z# w                                if D_From_To_Chart[j,i]<=0 then
, |% t: I& B$ J* W9 n, f# l                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
                end;
  m# h) ]9 c& S& `1 a        next;
+ b5 L3 Z8 }" u) h6 D# m1 inext;
) X% D: x; ?6 _8 s: p4 l. ^* M
end;
0 B( J) ^1 d; V! Z
9 C  l& O: H+ p$ G+ @) g    Lines :=0;
: A4 {2 ?8 t; A  b0 |4 Q        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
' \1 M  K! e0 O& i4 n; d0 E            for j:1 to Number_Of_Machine loop
                    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");
' G- u+ j2 f+ Q" b                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
" O, I% p, r- K: K  _* a                end;
  K* a6 @. d& D; ?        next;
        MachineName :=sprint("M",Rows);
; O7 w0 ^- B2 x        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]);
  \; H3 ~3 R9 ~- v; ?        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
$ V; D% I5 e  }: l        Machine.label :=sprint("machine_",Rows);
7 R; [# Q& n9 u+ |        Machine.ExitCtrl :=ref(Leave);
" ]! c) w* I1 j$ t  X& c       
        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;
$ n$ T- d: J5 Z1 ^- x  j        Buf.Capacity :=5000;
$ E' O3 i3 U/ `6 V8 P6 V        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
5 a$ u# g3 ]) {$ a# i, s- z

五五

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

wudi

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