程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
7 F; q7 O5 o% _" T3 O$ Gis
9 S6 m2 J/ f# x5 Z; [        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
( ^9 F- F: o  w0 a' O7 l" q8 H        Machine,Buf:object;
0 i) n- l  f# x% n0 B8 m" T8 Q/ qdo
' E% Q8 {7 y  R# b        if Number_Of_Machine/=D_From_To_Chart.YDim then
! t$ g) w* c5 t& H$ z                inspect messageBox("Number Wrong...,",50,13)
, H0 _# S) N9 p. L" p4 B                when 16 then
0 J* K9 y6 F) ^" v( G1 R                        print "Yes";
) k- a6 u5 v" S  Z                when 32 then
4 C0 m5 @3 U/ n. i! a  a                        print "No";
  j$ H# R, |  {. p( l$ G. b% I                else
/ n+ Q% s' M, C9 G8 b  P  _                        print "Cancel";
                end;
        EventController.stop;
3 |5 Z1 l6 n: I5 D. N0 O# }end;
) P& H5 ~; Q, ^8 o' XPartsTable.delete;
for i:=1 to Number_Of_Machine loop
: f: ]5 v% C" m6 e/ I, e9 \        for j:=1 to Number_Of_Machine loop
                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
7 d& m) k! R' @, l" q; B                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
$ ^8 O" `& d2 O                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
  {& H! R, y8 M1 X& {                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
- K  S" a, D0 g% L2 Y- B, d                                end;
$ S6 E2 ^+ D# D9 X) v/ H                        end;
                end;
$ o  O; _* y4 K. l% n8 O; I        next;
next;
% s/ Q; P( c7 J& q4 E; a
9 O$ |" W# l: u6 ?1 g* h) Iend;
* n, o8 p1 j) B9 P% N. L- K
( {) x1 ?+ F9 R# G. D7 U( D    Lines :=0;
' m8 j8 x# T/ H! q/ U        for i:1 to Number_Of_Machine loop
# K4 ]( Q& ^$ q) j6 l8 _) x        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
: Q9 L/ u1 A4 I        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
  f& a% c1 W; S' f* i& L                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
9 n( w# A. i/ f                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
& q/ q! R& r/ ]- X, v                        PartsTable[6,Lines]:=j;
                end;
, u1 K) H: W5 q  t        next;
( h7 D. t. M3 _' \        MachineName :=sprint("M",Rows);
! j6 G6 I. S; [7 U; P& m  W/ C$ M        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;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
: g; N# j* _, ]. F% B       
5 p; [5 j. c" E, i2 h  O7 C        BufName :=sprint("BF",Rows);
+ z( J5 }/ [* z5 V4 s" a        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;
3 H' r2 l+ g/ r        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
8 Z' ~" h* Z8 \' |) f        .MaterialFlow.Connector.connect(Buf,Machine);
4 k* A; C& g5 ~" q* Fnext;
end;
3 }9 E+ S; A+ t9 v* s$ ~

五五

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

wudi

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