程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
- l. Y1 Z8 k' @2 t$ E        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
3 |! e/ U7 W& o& Y        Machine,Buf:object;
do
, J) Y0 }- W  b  Z; _2 g  s        if Number_Of_Machine/=D_From_To_Chart.YDim then
7 J: f5 E% R6 b+ K                inspect messageBox("Number Wrong...,",50,13)
, U- D; \8 X% {6 W                when 16 then
) T) R) b- \# }: t, {6 w4 q3 y: H                        print "Yes";
$ ~: b, D6 O& N4 z9 M8 S& g! Q# r% U1 \                when 32 then
# j7 D$ y; _% X                        print "No";
  ~8 d9 a  }! o4 B- E                else
1 h* i4 y- M* Y                        print "Cancel";
                end;
6 E; c+ }, O, ^        EventController.stop;
; N# U1 n1 B/ ~  [2 I* G* i8 wend;
4 f! u0 r; V0 G" BPartsTable.delete;
. [# |% d4 ~" g" R! Nfor i:=1 to Number_Of_Machine loop
/ a4 R; ]8 [2 U4 D' e. c3 i        for j:=1 to Number_Of_Machine loop
' l5 z# P# Q2 n4 d                if j<i then
' p) D; ~7 [1 S                        if D_From_To_Chart[j,i]<=0 then
8 p8 ?6 q) J& P+ b8 z- F8 e' P                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
2 f7 X: n1 ?* g) b- r4 u3 r                        end;
- Q! U; |- R8 \  k                else
) `; s6 c" Z# K" G7 R                        if j=i then
                                D_From_To_Chart[j,i]:=0;
8 T! m7 W- r9 Q# l  D+ A/ s                        else
6 G& v( W/ ^! u& a                                if D_From_To_Chart[j,i]<=0 then
# h' F6 J8 m# K; c, o3 B                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
7 D5 Z* |' r7 V! \: \8 F3 a                end;
9 M; G$ B) s$ u! C! u9 g        next;
+ J" a' [! j$ \# C  d: s$ H9 w! L4 Fnext;

4 K, `2 T  R. B, y# iend;

2 I" F, J& r( C+ `    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
+ {' v) U# g' T/ C' \: X        MachineSequence[2,i]:=Rows;
  z% N9 A& j2 @: C* H/ e; P            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
& p6 T6 p) F, h) b                            Lines :=Lines+1;
8 n4 X7 K0 s9 Z' I( ~, ~" k                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
) Y5 |: ^& l  B, `2 G1 E; ^: ~                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
7 L# O/ B3 G6 Q1 j: Z                        PartsTable[3,Lines]:=sprint("Parts");
1 n# m8 D  O: j3 ?9 ^# J; A                        PartsTable[5,Lines]:=Rows;
% \. m( J" m% ?# y7 {2 c+ S" E& k                        PartsTable[6,Lines]:=j;
) i6 ^+ X3 w1 a6 g; U8 S                end;
        next;
8 f. p* O; Q" i% y        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]);
  N; L1 M0 D: F$ T4 e% |        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
0 O: u" D$ F. Z" n+ O9 R' K        Machine.label :=sprint("machine_",Rows);
7 O5 U$ d+ ~" d7 }* B' Q, ?        Machine.ExitCtrl :=ref(Leave);
7 c+ F8 A  z$ [& O# _       
  o- \+ j+ W, G1 q        BufName :=sprint("BF",Rows);
# T9 x& u$ O" a3 _        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;
' p9 G0 d, p% N; D4 ?5 m2 ~8 B        Buf.ProcTime :=0;
5 D) U9 `: M5 [9 L- `        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
/ w2 _; \- e5 {) @& z7 {- Z

五五

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

wudi

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