程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
- X0 ^. }5 v' X; Y7 o        MachineName,BufName:string;
        Machine,Buf:object;
do
# Z3 n) B" v) q" t        if Number_Of_Machine/=D_From_To_Chart.YDim then
) x% ]' H7 r/ W& r                inspect messageBox("Number Wrong...,",50,13)
3 `0 C9 _: \' N% d0 A2 g                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
                else
( |1 u0 r- h6 y" D. I  _                        print "Cancel";
                end;
        EventController.stop;
$ R5 Y) B$ r6 mend;
PartsTable.delete;
) }: l; i, Q  Rfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
8 G) X" c$ B$ z0 D! X" g                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
) e9 k, ]% z5 Q9 G4 l9 A                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
% k) M) W' ^9 d8 g5 ]" T  k5 }                        end;
                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
5 z- f9 i9 I) e( o$ o( [7 ~9 G9 X& Z                        else
! ?2 h- x4 J4 P1 l. b) H6 u/ d                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
, I' X; ]% R3 k& ]( Q                end;
' O6 ^4 M: V. j0 m        next;
8 @" ?: P; |6 a' `4 v3 ~next;
" i  H- N0 o  h6 ?6 q
/ O/ V; B  s/ F& E( q. v; q1 v; ?end;
. e4 d2 {) C* f$ _2 T  |
    Lines :=0;
$ c* K3 j. Z4 Z! l) ^        for i:1 to Number_Of_Machine loop
8 _+ V% j7 \' Y        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
, |) `6 v+ a' M. q! J+ n  b8 N                    if W_From_To_Chart[j,Rows]>0 then
+ Q! s9 U9 Y! L6 P4 e                            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");
                        PartsTable[5,Lines]:=Rows;
: h6 A  `2 r4 ]* x% [                        PartsTable[6,Lines]:=j;
) t. S, \% x( [% s: R, z6 b2 Y                end;
8 ^2 H: r" t4 }. g# H: U6 l        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;
% \: T, U0 v; t: z        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
3 [7 d! s  N5 u/ d7 ~, a  a        Machine.ExitCtrl :=ref(Leave);
/ w. k6 o( X$ q  w/ p# g; L. ?       
; G: h! Q; e1 f! c7 Z& Z        BufName :=sprint("BF",Rows);
6 p2 Y/ ?* ~$ y! n        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 H# I8 a8 }0 m1 H( R+ u9 N3 A                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
& Z2 l3 H4 j7 P: V; G  P        Buf.ProcTime :=0;
# n. X0 Q$ ]0 l& d4 a: ^2 n        .MaterialFlow.Connector.connect(Buf,Machine);
3 T% o" @1 C' fnext;
- f& m: S$ H3 ~) Bend;
3 Y6 h% l5 _  U1 G8 Q2 S/ T, f

五五

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

wudi

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