程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
  p! m- m% |3 z  B        i,j,Rows,Lines:integer;
: [: X2 O; t" e& U% X5 X        MachineName,BufName:string;
        Machine,Buf:object;
  y: S, X7 ^; Y: A, {  |$ edo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
) ^0 u6 j- P5 z/ [- W                        print "No";
# u) P* ^7 ?' Q0 y2 b/ O2 ~7 o                else
                        print "Cancel";
- c  y8 K0 R; j* m( Y  P4 I                end;
        EventController.stop;
end;
PartsTable.delete;
" S- L+ ~5 h+ A5 t: U( ^, Yfor 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];
0 Z+ G7 p1 D. _0 l* T                        end;
# k% ?; N7 R% B" h- M2 f( L                else
                        if j=i then
4 e5 M( w4 U% ?" {- ~- d                                D_From_To_Chart[j,i]:=0;
                        else
# e  [3 v6 B  S( T) t) Z0 ]% }7 D                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
1 D& c, i9 [; T- P' n1 q                                end;
                        end;
, b+ ^) o8 t! L% _- M                end;
  W' T' r( O" @- ~1 K+ T. N        next;
, J! {7 l8 ?' H! ~% Jnext;
5 w* D# @! j2 t5 o0 f5 V
  ~1 m  a' j+ k1 ?end;
" a/ q, T( z( h8 a4 a- U
    Lines :=0;
        for i:1 to Number_Of_Machine loop
! M0 M( D0 U: K+ C9 `: S        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
5 i1 d& L4 A2 s9 x( z: Z0 Q        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
' y$ r9 k: ^' |                            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");
8 t9 D$ J+ \7 H9 w$ G/ l* x4 _( r7 N% P                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
( D0 u- ^3 x5 Q7 M+ B                end;
6 F4 Y( p5 E+ O' Q. a# r7 \6 d9 m        next;
+ `) t5 H3 t# g% V        MachineName :=sprint("M",Rows);
$ ?6 w0 l2 e) Z4 \        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]);
# P) F6 n7 A" ]: i1 a/ Z# R% t        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
; V( C$ M/ X; G) C( g1 w1 v        Machine.ExitCtrl :=ref(Leave);
5 m$ o, F0 O/ A4 b) X9 y       
+ t" P; O+ d0 p! @5 l, k3 \        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;
. o5 I) I' N( L! t        Buf.Capacity :=5000;
  t5 R8 W& ~1 t! V2 f2 o! I2 [) H# q        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
8 J, G$ }0 f' F" D5 nend;

五五

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

wudi

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