程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
* _/ e2 z# B+ o: T8 x$ n; f        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
do
) S9 c6 t6 B  f! ?2 |        if Number_Of_Machine/=D_From_To_Chart.YDim then
/ [! U6 ^% y& ^  X                inspect messageBox("Number Wrong...,",50,13)
6 h3 d, z# Q5 S  G% }2 w- C8 e4 c                when 16 then
9 W/ x/ p* h# o9 ^: I                        print "Yes";
6 A" y' d/ x- z                when 32 then
) h: q- R! w6 K( s" `) s                        print "No";
& W/ F* o, K* _1 Y! f                else
- Z0 Z2 u7 ?& A  ~                        print "Cancel";
# C2 S$ s2 A8 u$ y; D                end;
( K8 ?7 d1 h0 O        EventController.stop;
: Q* I: E$ c! T) M2 `end;
' B, N. j- ^  e9 s( i$ X- FPartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
6 [' g, A( m, Q5 j1 P                if j<i then
9 ~" T- h2 Q: _/ i$ ~5 Y6 ?                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
+ N. v) U" R9 y! A                        end;
) T$ i7 E  D" p; a( ]                else
                        if j=i then
$ y0 U  b4 S! D; r- p# J: ~                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
' G% z1 \& S3 S' t9 [/ D                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
                end;
: t  M: Y9 g; j        next;
) \; Z" l7 ]/ ~& Qnext;

end;
4 l- A- V, M! P% T- L) c
6 y* j! O8 ^1 t! w    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
9 q. B6 i: ^. N3 x" L        MachineSequence[2,i]:=Rows;
) n8 j% V- g; _% L            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
! G) o, r1 ^% B# t( ?3 |                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
! S: L; l, q: z, x                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
2 L- W! y8 Y1 K6 `, @0 z( H                end;
1 F; U( u# `3 s1 E" z5 j+ H: h        next;
7 m0 `+ X: R9 h. U+ A1 p% s        MachineName :=sprint("M",Rows);
  w1 k2 C& K3 ?! G; M; T        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;
        Machine.label :=sprint("machine_",Rows);
; K  D1 J% J# ~        Machine.ExitCtrl :=ref(Leave);
  S% a; |9 q% a" s5 l9 d       
        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;
6 l) A8 R8 |$ \! K5 Z6 X        Buf.Capacity :=5000;
4 z+ w4 [5 p% ]' \: Y5 i        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
  x# X/ `! G& w2 X5 |

五五

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

wudi

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