程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
+ b/ q- t5 B& M* His
, y  X" N# V, X* u5 m' `7 Y        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
+ ^5 b- J. v5 `3 m: b+ Edo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
$ D& x% \& I7 f6 G                        print "Yes";
                when 32 then
                        print "No";
                else
                        print "Cancel";
                end;
        EventController.stop;
! ]) V/ B) e) ~end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
* T) k* A9 x) s, W, b4 r                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];
' T8 a8 j$ {  H                        end;
# w; u1 r+ _% I- c, E! D) Z0 J                else
6 x- }# I0 v8 Z" c6 _* `% t. y& U                        if j=i then
/ K& |& E! V, q- _# w* d: F8 Z                                D_From_To_Chart[j,i]:=0;
                        else
9 P+ S. j, v3 H6 l                                if D_From_To_Chart[j,i]<=0 then
* }$ F: H' Q( ^+ B+ {2 R- L1 c                                        messageBox("distence<=0...,",50,13);
  }; z$ m- X4 i- `                                        EventController.stop;
. v0 C; M. [+ H9 k7 o. t/ L8 k                                end;
                        end;
& s& q* ]" W2 A                end;
        next;
next;

end;
% l( i+ F) X- L
- u* K+ t, G6 L( f    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
; F/ B/ t1 K0 ~            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];
. W4 U0 h) K# }7 ?2 k& N/ }1 p' m                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
* l) P& r! c, S6 I' f" `                end;
6 N5 Q* Y# ~" i2 l- X- o8 O* ?        next;
7 {+ I# \7 W& z: f4 z9 F# |: J4 E        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;
* O0 D3 M( T; i, B, ?% Y        Machine.label :=sprint("machine_",Rows);
% s  M3 Q/ S, z& z        Machine.ExitCtrl :=ref(Leave);
) P+ V# ]8 ?' G4 O       
# {! k: h7 a: F: |* ?2 }' D9 s; z6 ^        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;
/ p2 L, h: O7 a8 {        Buf.Capacity :=5000;
$ K- q4 n9 Y& a+ H1 L        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
) i* {! K3 r6 \7 _next;
end;

五五

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

wudi

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