程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
6 T& ~4 V" M, H: m2 L2 xis
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
) ^' Y. F8 s6 x        Machine,Buf:object;
9 P4 K0 M" L/ @) C+ ]4 ^3 ?1 sdo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
) h" y4 H* t& b1 v" W: e                inspect messageBox("Number Wrong...,",50,13)
$ G9 t2 |/ ?9 w% z, h; `                when 16 then
                        print "Yes";
                when 32 then
/ o9 ?- |; o0 V1 `% `( u6 z% F' s                        print "No";
" m. @5 k8 g/ [5 a- D5 F                else
                        print "Cancel";
                end;
( W6 K4 e/ S9 c% U8 K- O  R* [: t        EventController.stop;
, p8 Q4 z) X" Q" ?5 z7 pend;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
3 `' V+ k2 D* E$ z# e3 L% r        for j:=1 to Number_Of_Machine loop
                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;
3 K* U& A1 W0 |9 g. t                else
$ z0 B' T$ _* u" v; i& x9 F                        if j=i then
                                D_From_To_Chart[j,i]:=0;
: G0 q! B% c8 R                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
/ N& w- _$ [. o& p                                        EventController.stop;
) M% g& k; h* h& K- L                                end;
                        end;
) a1 t8 |3 U' _2 H: p/ X2 i0 C, x                end;
6 i3 Y9 z& l  F2 l( E, Q9 m        next;
next;
" R" v) ^4 z4 v$ {# [7 Z( e, s$ u- l
end;

* f; t% |7 ]+ D" H/ O5 {    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
) Y$ Q; |9 `$ O- R2 p        MachineSequence[2,i]:=Rows;
+ y8 J$ o# h' ]8 K- x. P% O            for j:1 to Number_Of_Machine loop
9 a% S- i% J6 u) \- g                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
  d& G8 G9 v& a0 T" j- r; U                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
& n0 b9 V5 Y# r7 G9 o0 l                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
4 r* ^& d# m: ?/ Y9 f0 a                end;
        next;
        MachineName :=sprint("M",Rows);
0 b4 w/ G& X8 ~1 q' J3 u1 n- n' [        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]);
2 y; k0 [2 O8 z2 Y% }+ x6 z        Machine.Name :=MachineName;
# K& K. V2 A7 D' x4 I        Machine.ProcTime :=5;
7 t7 R4 Z4 m7 b& ~" v1 E        Machine.label :=sprint("machine_",Rows);
: ^/ ?4 W& E8 b3 `        Machine.ExitCtrl :=ref(Leave);
% F3 a: ^# P5 w3 x       
  w5 m; g* j* C5 O8 Q# \' n/ C        BufName :=sprint("BF",Rows);
) z- Z. I! Z# }1 ~# }6 _3 J" ^        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;
% ?* T( f* L: G$ ~        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
0 z1 ?1 v: u8 d8 q4 mnext;
end;
9 c. p& G4 V3 u' s1 u

五五

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

wudi

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