程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
9 E* ~% j% n& c4 {        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
9 {, y8 k8 |8 Y- w. i        Machine,Buf:object;
; d8 e) Q9 N* p' a8 bdo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
8 B& d% L% X  ~5 V                        print "Yes";
                when 32 then
                        print "No";
                else
                        print "Cancel";
3 M& Y' D' }( V3 Y6 G                end;
3 I, J2 J+ y* d3 ?0 Q        EventController.stop;
end;
8 v5 T" |  N0 D' S4 F, i1 rPartsTable.delete;
. J+ ^: E6 i- c/ e5 }for i:=1 to Number_Of_Machine loop
. f0 b8 e* h$ Y# k        for j:=1 to Number_Of_Machine loop
1 N( s$ g( {# P! M& P                if j<i then
( ~: X( f! ^4 s. j* g                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
- w, L7 n- |  i+ x                        if j=i then
. W/ E- K) e1 B  ~3 a  m) e( F                                D_From_To_Chart[j,i]:=0;
                        else
% g) f/ G+ o7 \                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
4 a4 f/ J5 m8 z+ Q: [1 `5 B' L0 q                                        EventController.stop;
                                end;
+ v! h7 J: A! c                        end;
  ^% w+ T# k- ^- A                end;
        next;
$ D9 x- e5 {* Z! Tnext;
) [* z8 V' X+ T* l& u* i  K1 s
5 |$ Y, x6 F" v* Z0 Q' Wend;
9 Z$ h8 J5 c/ t1 y6 @9 [0 \! D7 w
% L9 l  L8 c, t+ L* f& b1 M    Lines :=0;
        for i:1 to Number_Of_Machine loop
2 {' G; G/ y2 R0 h  x4 b        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
& {: M1 X8 W% @- @$ r3 _! e$ P6 j        MachineSequence[2,i]:=Rows;
* l6 Q) p9 K  N  x            for j:1 to Number_Of_Machine loop
+ ^# T7 Q8 D$ {' {% J9 s                    if W_From_To_Chart[j,Rows]>0 then
+ I/ b3 j6 m) }( z9 W                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
# V: }; s! n+ D4 A# t  P                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
5 o5 z% J2 |* P8 G                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
4 i" V  ^8 v' O& |4 t8 C3 X                        PartsTable[6,Lines]:=j;
: N5 [1 ~/ q5 a1 S( g" x                end;
4 ]: h' v2 h0 Y. C        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;
  c1 k; }& m# r) {3 }        Machine.label :=sprint("machine_",Rows);
4 y5 \1 C/ G3 j' M' Y; D        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
        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;
, ^% [7 J) T+ {% Y4 G# k% e        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
, n! S# t- r; O( u0 M  Vend;

五五

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

wudi

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