程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
3 W' R. F2 j9 m6 b% Dis
: H7 W( }) l/ L        i,j,Rows,Lines:integer;
9 f+ F& @0 O6 e& H        MachineName,BufName:string;
        Machine,Buf:object;
7 ^! Z* V0 N# L; O2 p" k. n4 ?do
8 f) p6 ?5 T8 U1 L6 a( m6 i" B/ k        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
+ \  I/ I5 c) B: N: `& k, f                        print "Yes";
                when 32 then
                        print "No";
                else
; k2 A- ]: _" U; t  l$ |                        print "Cancel";
                end;
  e0 q8 W* L1 w) q        EventController.stop;
end;
: U+ i6 W* |5 Z  WPartsTable.delete;
for i:=1 to Number_Of_Machine loop
: H; ^% G7 i1 x, j        for j:=1 to Number_Of_Machine loop
; x! K) a+ W3 s2 @1 e                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
2 l# h* t+ X+ f! V' }$ J7 M                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
" ^; M9 d7 \. ], X( k0 P, ~8 A* R, w                else
                        if j=i then
) q- B  A6 \. t8 U. ^, S9 B% B                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
8 v5 q" r5 J- l! T. ?: W                                        messageBox("distence<=0...,",50,13);
" R! m/ ~6 Y1 C% t  u. I7 g                                        EventController.stop;
, p0 S- M% k  {+ E* y+ ^8 _                                end;
                        end;
& Z2 u7 X: x+ [0 S0 \                end;
        next;
+ u, r4 j( e/ I4 [4 ~# c6 `next;
+ d0 e( B/ J) p3 R5 f. ?
9 V# P; C  F! N$ g: nend;
0 S7 ^1 z0 W' U
- g  O) H1 n7 k2 N% Z8 Z2 x    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
! x2 n* l% S; q7 v4 |                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
6 y! o$ Q! n5 N1 C& \                        PartsTable[5,Lines]:=Rows;
6 u4 y1 ~' a. B1 K                        PartsTable[6,Lines]:=j;
                end;
        next;
        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;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
3 ?0 K) o1 o1 o+ h4 h        Machine.ExitCtrl :=ref(Leave);
* O1 B9 k& [# o9 d       
$ _# ~8 i# j; ~+ G' s        BufName :=sprint("BF",Rows);
# r. v: m# r' @, ?7 I        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]);
4 n6 f& P5 |) H. C, h  F$ D                 Buf.Name :=BufName;
( D4 d( A. ]# h5 u4 G        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
) d3 r& T( y: u3 f        .MaterialFlow.Connector.connect(Buf,Machine);
( w( X( M  ]2 P' ?6 t  rnext;
, y& @4 P- n: g+ i& q% T6 }2 D/ C. |# Aend;

五五

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

wudi

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