程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
2 `- d7 C- z3 I7 ~) n) E+ H8 [        Machine,Buf:object;
do
# ?5 R  C9 h& G  x$ A4 E        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
  E- N: Z  w7 c5 u  Z                when 16 then
; U6 f( e7 k1 d) K2 o                        print "Yes";
' d+ Z* J% A9 F2 O  N$ `                when 32 then
                        print "No";
- j) p7 M7 ]# y2 F7 Z$ C# {8 M                else
' ?2 I+ h/ G. i                        print "Cancel";
8 s: q' ~; r+ a4 J6 G' E                end;
        EventController.stop;
* n1 j& {1 d* {; qend;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
* `1 u$ V( x: c. \% f8 w7 m" O        for j:=1 to Number_Of_Machine loop
                if j<i then
4 U' R( T! X! c; f& E5 r# w                        if D_From_To_Chart[j,i]<=0 then
* d1 R2 J1 s! U% B7 c" O4 y! S                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
0 Q* a9 a  ]' Q( Z6 ]2 [                else
  @+ V& z8 V  p2 Z: X# O$ C9 ]                        if j=i then
$ |* ?6 f; Q/ f7 r9 Q# R                                D_From_To_Chart[j,i]:=0;
! C% ^5 `% A2 Y0 U0 ?+ i                        else
# R& G% S) V" q. C0 L                                if D_From_To_Chart[j,i]<=0 then
" b7 k/ U0 n( \4 W5 g: V                                        messageBox("distence<=0...,",50,13);
. i4 u4 k2 H7 S+ x0 D. E                                        EventController.stop;
                                end;
3 I$ h. N/ c& Z9 v# q/ o                        end;
                end;
        next;
next;
: s! `- J1 |& X- z6 g, B( f
end;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
4 c" r4 ?& I/ T3 o$ U            for j:1 to Number_Of_Machine loop
$ m) p! `2 J4 a, S7 H' L( I2 ^6 U                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
9 ^  G, n4 y# \9 P6 T' w$ V, H                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
7 E' L# b9 H: I4 U6 S% t# m. s                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
) r1 i; H2 X6 H( w9 T$ @                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
        next;
+ P$ X: A: A: E4 Y+ z" E5 j8 j        MachineName :=sprint("M",Rows);
) \- S3 Y* h8 g) o* u- l5 Y$ _        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]);
# s+ n' y- S5 q- B' v        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
  ]0 f3 m) f3 j' H4 H& @. |        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
; o5 A" |/ e! g: v' L5 O       
        BufName :=sprint("BF",Rows);
- M! r- x" ^2 C1 \5 Q/ |8 s0 `6 M        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]);
# R' r4 x9 j7 V* M2 j' \& v                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
( P2 X' a" v$ M8 Rnext;
end;

五五

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

wudi

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