程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
5 M% ]( t  J/ Q2 `0 k; {) ~- ~        i,j,Rows,Lines:integer;
2 Z" _- }# o, {2 ]) g- t" y$ }        MachineName,BufName:string;
8 K, }8 w, a# M4 Z1 s0 o$ h. C        Machine,Buf:object;
do
. m) T: S/ ]" F6 ?        if Number_Of_Machine/=D_From_To_Chart.YDim then
5 h* d% z2 m/ R8 l, W/ X                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
3 D8 A! ?" h0 B& W/ G6 d% F4 J# ~                else
                        print "Cancel";
                end;
; s/ e$ }8 {* W: z% R, o5 {3 }- A        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
* u6 q; [4 _. o( |2 @. [1 R        for j:=1 to Number_Of_Machine loop
                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
- [: i: U- L/ J7 @0 P7 Y                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
                        if j=i then
% X  d3 }/ T# D+ H$ y" r                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
# O+ u! G4 O! d                                        messageBox("distence<=0...,",50,13);
7 j% _: N+ D- A) f                                        EventController.stop;
# d; S. i$ h1 C+ e, |                                end;
3 U, m9 p( Z5 I, U8 A                        end;
  U/ @2 B+ X; p& @1 d                end;
% n8 V# Q7 o$ `/ h) O        next;
/ P+ M  p+ W# W5 ?next;
9 G7 J8 Y8 i/ D* ^' p
end;
, Z9 j& r$ t( ~: q
- j! S/ X" e5 L  J$ m3 t    Lines :=0;
! \2 q( N# Y- x' u0 M9 G4 T4 B1 Q        for i:1 to Number_Of_Machine loop
! P* _, N% E$ l, Q" V        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
  f* z) I) O4 N2 ~" X' K            for j:1 to Number_Of_Machine loop
6 X: d/ w& x% o                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
" \2 i% ?, J4 \# Q3 I                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
" J& c7 z* y5 B* Y                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
9 l  L0 e2 e2 {# h2 k# k8 n        next;
  [* @$ i( m3 R: Z$ E        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]);
- l  j7 ^  [5 B/ A6 e; N( e7 \& u. [        Machine.Name :=MachineName;
; a- n, [8 n) S( t5 F" q        Machine.ProcTime :=5;
! `3 C/ Z3 h' P2 X2 ~        Machine.label :=sprint("machine_",Rows);
4 W$ v+ {# Y7 X. B, s$ z# u        Machine.ExitCtrl :=ref(Leave);
; T8 g( w. O+ [' C9 ]       
        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]);
) A* b; @5 n- `& M* X  I: |                 Buf.Name :=BufName;
, v! t' I. p  i5 Q% o9 a3 n4 P/ c        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
+ }& h/ @4 s1 ]8 E# ~) e  Z$ s: Y        .MaterialFlow.Connector.connect(Buf,Machine);
next;
1 ^+ _, `5 O1 X# g  D! W9 ^end;
* R. M6 V3 I& `8 W. g) p

五五

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

wudi

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