程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
1 Q( [* E/ Q/ A( d4 x) dis
3 z& V* f" I+ z* G# ]& W# c        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
" W4 q3 D7 {) ~: K, n( o        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
+ h. B  R2 p: h+ J0 K                inspect messageBox("Number Wrong...,",50,13)
3 O+ O% T/ H, ?8 T- S                when 16 then
0 h* X6 A* I( T! N; [/ U                        print "Yes";
                when 32 then
                        print "No";
8 }2 |# f2 Q5 K9 s3 n$ e  U                else
                        print "Cancel";
6 }5 {- O) M- P                end;
( O, V6 O% {& e" h8 v3 }        EventController.stop;
* D) K( F4 Q4 g2 B) I6 m, [- `3 O1 R: ?end;
PartsTable.delete;
' S  a1 X& l# r' _2 d% U- {for i:=1 to Number_Of_Machine loop
# K5 Z2 ]- G8 H$ V4 Z0 ]        for j:=1 to Number_Of_Machine loop
+ R- n# W& Z! p3 v8 a' r                if j<i then
& B" w9 h+ f- v$ _& Q1 M                        if D_From_To_Chart[j,i]<=0 then
2 Y, m4 p6 o& b9 V* N' ]                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
3 Y% y, h# Z* a: r                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
# i4 c# G" V+ R* r                                        messageBox("distence<=0...,",50,13);
1 S& Q1 g! b7 ~2 H+ G7 m                                        EventController.stop;
                                end;
% q( {! l7 V+ P- y+ }/ [% I7 o                        end;
. U6 y/ a  r, p: n4 q0 U8 O; b5 f                end;
  R$ [8 a2 Y0 A; ?2 H4 m. F6 A        next;
next;
6 t& @) h0 h3 i" t5 E7 x6 Y
9 i9 y( c( h" @8 Eend;

    Lines :=0;
/ @9 F8 C2 @; P+ G4 U        for i:1 to Number_Of_Machine loop
! v: c/ d" S: Z        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
6 _$ J5 \5 K& E6 ?& w        MachineSequence[2,i]:=Rows;
6 n0 o* f. w& ^5 [1 C/ K7 Y            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
' E) J9 i3 n! I: p! O# c' Q/ n                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
$ O) X1 b$ x- ?6 `                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
3 ^" a9 j) Q& n                        PartsTable[6,Lines]:=j;
, F) j- Q; \' w) F                end;
( L) D, j4 w0 l) R& G- \9 W        next;
+ T" N" h, u/ L# [2 j2 E1 V        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]);
        Machine.Name :=MachineName;
" I0 f6 i% G/ Y        Machine.ProcTime :=5;
* u% v, k" J% N! N: x! j        Machine.label :=sprint("machine_",Rows);
. |& y4 q  I( G" P3 P5 u0 ]        Machine.ExitCtrl :=ref(Leave);
       
4 V/ d" n; u0 {  y        BufName :=sprint("BF",Rows);
" N, B: ^' _1 ~/ P& b( G4 m7 d        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;
        Buf.ProcTime :=0;
! u3 Q2 q2 X; s. r# A- C        .MaterialFlow.Connector.connect(Buf,Machine);
: Z. e( m/ |$ Snext;
% e8 r% v, F. X9 Lend;

五五

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

wudi

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