程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
1 J% f) J6 S' x3 d, L0 Dis
* n, _) g# q5 x/ _$ j& X* c        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
$ x4 n/ F5 u: b! q        Machine,Buf:object;
8 s4 c0 O2 ]" b5 s) y6 l5 N+ a: w# L! z& ]do
: I* k2 a, q1 s& Z" l- s        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
( N4 Y/ }+ p) R$ a  I, i) e$ A                when 16 then
1 d$ ]6 G8 }( p' l+ D5 o                        print "Yes";
                when 32 then
3 W4 v9 P( m2 |8 t; A% @3 d                        print "No";
                else
                        print "Cancel";
                end;
        EventController.stop;
end;
# V: _0 [" S# W3 Y3 N# lPartsTable.delete;
for i:=1 to Number_Of_Machine loop
; b. W+ I8 ^! g9 D0 J        for j:=1 to Number_Of_Machine loop
( _, x( q/ `, r" V                if j<i then
1 b3 A3 T4 Z& X! u* l0 n8 t8 o( I                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
( {7 N" W0 b1 z. Q& ]                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
' @8 r9 p' [) _/ t0 ~                                if D_From_To_Chart[j,i]<=0 then
0 M  X8 r4 k4 m2 a& c/ w$ ?) U) }                                        messageBox("distence<=0...,",50,13);
; @0 w* g% C; p; I" w                                        EventController.stop;
                                end;
! m5 {$ w8 i9 s! Y                        end;
                end;
        next;
1 ~* v, A- m4 V( ~- }next;

end;
  C5 _% q5 B. Z0 x2 Y8 R
/ T* k& V' ?2 p/ p5 ~0 D( [    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;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
1 N% N' l( C0 m+ `7 i- u, t        next;
0 a+ B/ [: T5 A7 a% \        MachineName :=sprint("M",Rows);
# [* I% H( h0 P; W; ?0 V$ B        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;
/ T: N0 B" ?# j% m1 V: Z9 {; Y        Machine.ProcTime :=5;
9 q( a0 l% }, _3 ^, r        Machine.label :=sprint("machine_",Rows);
4 M  m. t2 x: t        Machine.ExitCtrl :=ref(Leave);
9 V1 n3 D1 l  E. t, p& u- ]       
        BufName :=sprint("BF",Rows);
8 K, }) n' H$ K* [+ H# 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]);
5 w; K3 M1 ^/ Z) ~                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
; Q; B0 |  F+ X+ O% J3 j8 R! c6 E        .MaterialFlow.Connector.connect(Buf,Machine);
$ ~9 u0 K5 h" g7 a9 o! ~7 pnext;
- @. V& ?, N; y% y  L& bend;
2 ^: N5 p0 r. O/ \' k

五五

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

wudi

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