程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
$ V7 R4 J/ f; G7 P0 Mis
  x7 G) A2 @& f1 F/ i        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
' Q0 l0 y  w$ ]) r        Machine,Buf:object;
do
7 T. `  l9 g7 J) {" J        if Number_Of_Machine/=D_From_To_Chart.YDim then
/ k+ X, B1 n/ y* n- b6 s                inspect messageBox("Number Wrong...,",50,13)
% o: z5 i: W! U4 T                when 16 then
( d9 C4 Z) _0 O  l$ R+ @                        print "Yes";
                when 32 then
                        print "No";
                else
4 P) e$ M" I( |8 I7 L- \4 q1 c8 p                        print "Cancel";
                end;
% B6 B! n4 r% j* _/ J- z" b        EventController.stop;
5 _! E  W! h1 {: Nend;
% w, N% B" w/ P+ Z' [7 iPartsTable.delete;
for 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];
: N0 U3 V+ i- Q' y                        end;
. k0 e  c  f5 r# N, T+ p                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
# D, c2 g0 ^) E! E, s1 T                                        messageBox("distence<=0...,",50,13);
. W. j/ O5 T0 e# J                                        EventController.stop;
1 l3 n/ r$ a1 z* Y* p                                end;
) F% j5 O' j. |  u/ Q% M                        end;
- |% ?+ u1 y/ A, c* O5 k- Q                end;
) W; A' m# n2 x9 _        next;
next;
* @$ u8 l) j6 H, t/ H
end;

5 ~8 h4 ?0 m! R. Y% r, E    Lines :=0;
        for i:1 to Number_Of_Machine loop
) u# o  V+ N$ S& m; \4 S        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
6 d! K6 w9 B0 o0 O3 W4 s                            Lines :=Lines+1;
0 P- P; A" y7 H                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
, U' i) D- n0 q8 O! Z                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
8 C$ r/ ~9 g: j7 Z9 N3 \. u                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
        next;
        MachineName :=sprint("M",Rows);
% K1 ?! t0 L( ~6 E        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]);
& N6 k) ]  a# k        Machine.Name :=MachineName;
$ O) P( f& I0 {5 r# {) n        Machine.ProcTime :=5;
" o0 H; u6 t, @* z* h* @        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
7 U1 R* r* c  V: Z8 n       
        BufName :=sprint("BF",Rows);
8 D8 D8 H2 O4 x& A        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]);
4 h: o, P# O& Q) E' C  C0 M                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
$ t8 S2 V' W3 Y        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
# A. ?4 M1 q: ?; anext;
end;
  f/ A* b7 w9 J1 l) J  i: E8 |, ^

五五

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

wudi

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