程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
6 c$ E5 R0 h" ^8 ris
+ T  o. A) }9 g0 L+ N$ [+ O        i,j,Rows,Lines:integer;
+ M+ t$ q9 z" ]+ X4 t        MachineName,BufName:string;
        Machine,Buf:object;
do
1 i7 D% }6 O( ~" d        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
! k9 h2 `6 k& E( |8 r$ l                when 32 then
                        print "No";
% K5 p/ T) F8 }& @" O- \2 j  Z# B6 x                else
1 x/ m2 A1 J6 K                        print "Cancel";
9 t: i& t( L# K  c! W& n% h: f                end;
( \. M; s4 ]3 G  p( q0 n6 s& n6 H        EventController.stop;
end;
' g, n% r4 K8 q7 r# [PartsTable.delete;
' f+ w- h. W  c4 nfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
0 l5 |  J' h7 L9 {                        if j=i then
* f2 C3 N4 o# T% ~9 _  h! v                                D_From_To_Chart[j,i]:=0;
' k+ l2 ]* k1 j" q$ X; n, t                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
, @9 @% K0 _: H2 |: [/ |                                        EventController.stop;
                                end;
( h7 K  `6 y. X1 I0 Z8 O- ~+ f                        end;
' K1 ]% l; @. }3 O; L                end;
        next;
next;
+ I2 n4 \: }  ?0 p4 N
( V7 x/ B! F. y7 |7 I, ~9 T0 M4 l0 Aend;
/ @, f* h5 K: B, R0 b
' g7 O; t: A  s2 I    Lines :=0;
, k( e4 k) {7 L0 P' s& F4 l4 {        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
5 X+ t$ T* A3 a            for j:1 to Number_Of_Machine loop
: M5 u7 h0 E8 R4 }9 v' Y                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
6 Y" n; o# `4 I" s4 o4 x5 ?                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
6 N/ o! P) }6 \5 W4 G, Y                        PartsTable[3,Lines]:=sprint("Parts");
/ Q, d% p" m- I! a6 v                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
        next;
0 G; R4 S& N' Q: G        MachineName :=sprint("M",Rows);
$ }) M9 I  o+ E$ N/ ^        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;
" z' e( e- b5 n1 d. B7 ^6 D, H5 F! g        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
; A. n3 e/ K. b/ M- A       
        BufName :=sprint("BF",Rows);
2 g) w7 s; `4 M  i! P0 r( s7 u        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]);
- u# N5 O3 M  l& T6 b9 L                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
: r/ x+ c& W8 R        Buf.ProcTime :=0;
" }( H$ @! m; N1 p7 q        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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