程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
& ^" j" _  _! k6 N4 Y( ~* J) T        MachineName,BufName:string;
        Machine,Buf:object;
do
2 I" r2 W  Z$ O/ `* t        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
  i" ?3 j6 D  T5 {9 _0 i# K% R( x                else
                        print "Cancel";
                end;
        EventController.stop;
  d( j. ^# B9 G: D4 d* bend;
& ^" _1 y. r, V$ l6 u  O: VPartsTable.delete;
- t) D, Z1 T# t/ k$ z4 Q( Q& Hfor i:=1 to Number_Of_Machine loop
4 p8 p" d. d* q5 B        for j:=1 to Number_Of_Machine loop
                if j<i then
! |* z6 s: X+ y                        if D_From_To_Chart[j,i]<=0 then
, J' [- K+ e/ y                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
! |3 M/ I# F' Z) g& ?/ N" T/ K/ a                        end;
                else
" m7 z/ C. J  m7 w8 Y; R                        if j=i then
  H( k6 \* }9 d; @# X                                D_From_To_Chart[j,i]:=0;
6 K0 }9 I5 Z7 y0 G- m5 o4 w0 T$ _                        else
                                if D_From_To_Chart[j,i]<=0 then
9 k% y4 ?( h# d+ G8 m4 {+ \4 |                                        messageBox("distence<=0...,",50,13);
, d3 W2 t4 r- a0 C+ \" o                                        EventController.stop;
6 f" i1 r% J6 p7 e& R4 v. h                                end;
$ q. Z+ ]/ h2 r& K' @  L                        end;
7 X, f) ^4 ^" O$ y  ^2 f                end;
* d9 P  ~9 l: Q5 L$ J& i        next;
. \1 m! n+ s1 K; z: Inext;
  I! }. `3 S% f( ?8 y" c( Z! B
end;

    Lines :=0;
# R" L! {+ L! H0 ^- l/ T' h1 q8 R        for i:1 to Number_Of_Machine loop
; H$ m6 X1 d( m( M/ j9 i        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
. n1 y* j. ?( W" C7 p% j        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
0 h. ?4 G/ g0 V5 Y: e                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
9 e. w& l, B/ F1 k% h8 `7 P9 ]' J                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
2 T3 E0 S0 {$ q7 _3 o$ ?5 c                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
) }, e, x4 o8 d8 J- i, T6 d; u' Z: }                        PartsTable[6,Lines]:=j;
" ]# c8 _0 v* k, O9 T                end;
        next;
2 C& y7 i  H( e$ q        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]);
* f: \, X' W2 A3 w  I2 v. s        Machine.Name :=MachineName;
! D+ d  ^! k) e3 g( A7 ~        Machine.ProcTime :=5;
7 @* S9 ^  \6 m6 u: `0 D        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        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;
$ N" a+ |" M) e: b" a3 H        Buf.Capacity :=5000;
/ [0 ^: E4 G# z; v- a3 W, |        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
3 K5 I  Y2 [% `0 R2 J8 \6 rnext;
7 g5 C+ h% k5 Y( n  I7 nend;
6 d7 w/ k) G+ C  v

五五

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

wudi

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