程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
. V, r8 \5 R* y        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
) W: R7 e( N) l! o# y        Machine,Buf:object;
do
4 P2 Z8 U* f8 }# [        if Number_Of_Machine/=D_From_To_Chart.YDim then
3 _3 p! i7 Q3 P/ ~+ d# r, O                inspect messageBox("Number Wrong...,",50,13)
( n1 S  j9 L4 N# B# ]                when 16 then
                        print "Yes";
; l9 ]0 j, m8 q& k3 Y" L                when 32 then
: `9 Z, b# [# ?& l, Z                        print "No";
, i; w$ m- R, G  c# v# T                else
                        print "Cancel";
$ e% k, E4 V- Q" Y; u6 a' }/ S2 a                end;
% \4 H( a" s! Z        EventController.stop;
$ a( G$ j3 j' G3 ?end;
PartsTable.delete;
% K- E& S4 h& B- Kfor i:=1 to Number_Of_Machine loop
7 w. F+ V. A; r        for j:=1 to Number_Of_Machine loop
: R; E/ s* s$ F& S                if j<i then
7 k% l' l/ Y( L, V7 C8 U                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
8 R4 s7 a  L* W) c2 _' B/ M                else
                        if j=i then
* U% I) O& R' ?8 O                                D_From_To_Chart[j,i]:=0;
                        else
6 ?4 i+ S+ T8 s8 ^0 [' {                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
8 _# z1 M$ y1 C6 q/ d; u7 |" e4 ^" U                                end;
/ y* s6 M1 O  y& F                        end;
                end;
. v$ r7 L! g2 j  ^$ m+ \        next;
next;
* S  L" ~3 z) u3 S9 y2 {3 Q
1 o& H; B+ Y2 L+ T; G2 [end;

( e5 l6 V! I" f+ U* F) v0 d& ?    Lines :=0;
$ P; y: Q: b, u; t, r* C- d        for i:1 to Number_Of_Machine loop
. h6 Z2 G. q, J3 r; V5 Y8 B        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
6 C$ ~4 B3 `2 H: t2 z        MachineSequence[2,i]:=Rows;
. S- G' s" T( A- M1 X  l  V6 d' d6 X            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
2 q+ U( l& M: c8 Z                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
6 T5 }% k, ?2 U7 q/ S5 O* d                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
6 P( Z9 \, u( K7 r        next;
$ l% a! @* s0 }1 N% L        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]);
  {* d; F+ x" |& d        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
3 e0 b. D8 D; Y. G5 F) `& h        Machine.label :=sprint("machine_",Rows);
( P2 @8 [1 V( @0 a        Machine.ExitCtrl :=ref(Leave);
       
$ l0 P7 W% u$ O3 _; O/ ^        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]);
" [1 j+ N1 [9 T& l! v4 a                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
1 z  l. o0 `5 [0 D6 q. }4 l1 n        .MaterialFlow.Connector.connect(Buf,Machine);
next;
; k, U2 L, h( Z! kend;

五五

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

wudi

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