程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
" Q6 X' l1 E) Q( i% ?4 M' Z  Sis
- R3 m; u; E1 s        i,j,Rows,Lines:integer;
0 ?' \8 _5 H! n$ g5 |4 x! H        MachineName,BufName:string;
+ f2 @  e0 k- g$ Z  Y' ^  M        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
" V8 y2 x% J$ v! g# r                        print "Yes";
                when 32 then
2 E8 }1 T$ m* r( m- p; X                        print "No";
                else
                        print "Cancel";
                end;
5 C7 R8 _: @' a6 a0 U; n        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
4 m; Y% r, ^' I, H) ?% B0 b4 R        for j:=1 to Number_Of_Machine loop
                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
/ a) z6 {* [4 V5 W1 t                                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;
  F! [. U( u* m# t' H1 P                        else
% a% t8 }& T1 A8 e  ?* W$ A' f7 ~                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
. x! j* a% b6 `6 {. F0 c1 a, O: _# _% v                                end;
                        end;
3 t% E! W  `9 n2 A; G5 u: U/ ]" F                end;
, ^& I+ m6 B& H# H' h        next;
  R5 O6 c2 ^1 g# |( G* hnext;

end;

6 I0 ]' Y; }) {7 c% a7 k2 E    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
) O# Y: N9 |! \        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
: V* r6 t" w# D) A5 c6 A8 r* m                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
4 Y6 V, u" B1 o0 a8 [                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
$ F7 Z* y5 f( L7 c8 Y                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
, C% x& Y# l4 d& r  a; \' r        next;
! V# R4 Y- p  R0 Z1 f        MachineName :=sprint("M",Rows);
, m  T: V- {( u( q        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]);
- t: A$ l" u- ?+ M! o* z0 M        Machine.Name :=MachineName;
9 \' J% D5 r& _* t+ o* p        Machine.ProcTime :=5;
- ~* V' Z1 F$ {* W4 C6 [' z        Machine.label :=sprint("machine_",Rows);
% P4 G7 q( ]. _, E- A2 S        Machine.ExitCtrl :=ref(Leave);
       
7 G% g4 g2 g9 I  ~        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]);
) p: F5 v6 B" E. H  R9 N# ~! K                 Buf.Name :=BufName;
' c. d- I* ]3 G+ I! b        Buf.Capacity :=5000;
9 Z( l! G& |" M, s/ [) P. J/ y        Buf.ProcTime :=0;
! I( o- G$ o6 b4 X) L+ r) G        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
0 Z% z4 J3 f* Q$ r

五五

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

wudi

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