程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
6 l& r* E/ w, A- c) b: U        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
) K9 Y8 i4 Y& X4 Ndo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
4 U# p  z  z7 T% L                        print "No";
                else
                        print "Cancel";
                end;
        EventController.stop;
- m% ]6 e; _0 \9 g" Oend;
4 w, t3 h* n) ?( e& wPartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
$ }7 D% m1 N; f! v% n                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
& n! D+ H8 d( b( ^                        end;
% |+ n: F. `# A                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
' K3 k4 k7 R9 }                                if D_From_To_Chart[j,i]<=0 then
& w7 Q6 H% `7 V+ a; C                                        messageBox("distence<=0...,",50,13);
! p6 P! x# F( _7 V/ K                                        EventController.stop;
                                end;
                        end;
                end;
6 |3 D. ^) |4 o6 w+ Y/ w8 ]        next;
; I' }) |- q" a' K' H( G. W( Y: v, ^next;
( d( S" B6 J* r
4 H/ D+ ]6 Z3 y4 q; M4 H' qend;

9 ^* @, N! F' y& @- K5 s& O, H# I    Lines :=0;
; ^8 {4 @! B# Z& S' k) q+ j9 R        for i:1 to Number_Of_Machine loop
0 t2 s2 m( Y  h0 E        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
$ b: P9 g2 M" d  K        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
7 K) e( {3 _( D! t) Z7 v                            Lines :=Lines+1;
6 G0 z. d1 q. q2 n! y) N4 O                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
! o1 Q) x- c9 o& L  L% O1 l' M4 t                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
' V6 N) T# {# |. U                        PartsTable[6,Lines]:=j;
                end;
        next;
/ Y' T: Q1 f  g+ F$ d/ ?3 E) r        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;
, d: Q0 V2 h% H* V8 @) D- F0 Y        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
5 Y7 S) S" B5 f9 L0 a/ s1 j8 G( S       
        BufName :=sprint("BF",Rows);
+ ]) H7 N" p! T  v) ]5 @, Z        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;
' s2 N: C% I. u4 a" ?) G2 x        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
1 r) B- P8 V$ O2 `' o        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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