程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
7 s! J  T, c7 i! w1 g( j! Q% }- h* @7 s        i,j,Rows,Lines:integer;
% h9 m  Q' V9 M1 m- j/ K        MachineName,BufName:string;
        Machine,Buf:object;
5 L2 U9 j& b( W6 d" X- Fdo
2 _5 `! o: n4 w- h+ ?2 _        if Number_Of_Machine/=D_From_To_Chart.YDim then
0 w0 T3 c" N5 V1 u& H3 ?                inspect messageBox("Number Wrong...,",50,13)
' k  s; |6 }7 N+ ^                when 16 then
0 e2 b; l) d2 J, S+ [                        print "Yes";
* X, G0 t; K8 c1 j0 O$ k: F                when 32 then
9 P# ^1 i* b7 {. D                        print "No";
                else
% ^# C2 i+ c6 O  t" m+ n' N" W                        print "Cancel";
                end;
        EventController.stop;
end;
9 Z( j8 a( s5 S9 V" c- y$ {+ PPartsTable.delete;
1 M, t; w+ q; Jfor 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
- ^1 J6 ]$ v/ o% H1 F$ k                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
! C; U7 P: T) a8 y9 \: d6 z                else
3 [8 x! n/ A- k$ |3 R0 P. Y# H5 n                        if j=i then
                                D_From_To_Chart[j,i]:=0;
9 e6 H( N* `2 T; u                        else
0 b- q7 v5 d- ?: Q                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
/ s( f3 p. {8 ~' n                                end;
1 g0 k  k$ R, p7 l                        end;
                end;
! r) d$ F, x) S7 Z2 _) `  o        next;
next;
, w4 |* k7 q+ @/ P0 Z& q
end;
+ i% H7 g3 w3 n
    Lines :=0;
: H  ~  Q3 c( ]& ?        for i:1 to Number_Of_Machine loop
- \( ~. a& [3 [" M+ H        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
2 L) S! M" _0 P; h6 Z: V6 G        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
- e% N( P  v( i: P                    if W_From_To_Chart[j,Rows]>0 then
* U, z/ t1 q: P2 |; q. M9 B                            Lines :=Lines+1;
$ A4 j+ Z9 m- u1 N  o$ v                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
0 K3 z# x; w) A                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
. p( c* I& a6 f) G                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
3 ^* b/ n4 y8 ~9 R, w2 ]+ R1 A                        PartsTable[6,Lines]:=j;
& l0 n* i7 D8 X' ?3 `                end;
7 u0 {' S, ]9 k$ a        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;
6 i" J# `& q: [) s4 [: T        Machine.ProcTime :=5;
& C. s2 w0 J# ~- S        Machine.label :=sprint("machine_",Rows);
0 B5 I# f1 _# d        Machine.ExitCtrl :=ref(Leave);
- b" Y9 y- ~8 o       
& j# ?% e4 l) j        BufName :=sprint("BF",Rows);
6 }& S: K: N7 Q        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]);
2 I! s; P( G8 w) M8 z                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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