程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
9 U' Z, H1 @/ v  Z. A. C. c& x        i,j,Rows,Lines:integer;
6 ^! }1 Z& {5 H9 R        MachineName,BufName:string;
3 [& R0 c7 d! |( x        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
/ Q0 w" E& @8 G3 L) d# w$ ~                        print "Yes";
  u$ D6 z$ G- o0 y                when 32 then
; S  f# M0 C0 ]2 [$ M; z+ X                        print "No";
                else
1 {+ [2 P4 L9 N1 h                        print "Cancel";
5 p" i& {2 `- g( `' \3 j7 {                end;
2 |  s( G% A8 }, I        EventController.stop;
end;
! e2 [. k3 |, b* N6 G0 o& ^* h; zPartsTable.delete;
( |- Z# ^# ]0 Z. \5 z2 h8 wfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
* h) @, F  Y. l6 N) i: ]) @+ }                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
7 @, Y2 T9 T5 }$ I( G, F7 O% t# ^                else
4 F; Z3 t* D/ Y  k5 _. l( z8 o                        if j=i then
2 i  s- R: _! o' k0 b                                D_From_To_Chart[j,i]:=0;
7 R8 t" f1 G% d                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
" S! N7 x( m, h7 x                                        EventController.stop;
                                end;
( @$ F' H% x1 v! a                        end;
% G( g# _* r8 M/ q                end;
% a6 p8 ~+ R! D/ W) V# {        next;
3 D. A& e6 s6 m1 q2 Rnext;

end;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
) `3 |/ K4 \. P        MachineSequence[2,i]:=Rows;
7 z1 c$ _( r. u: `' P8 |+ @1 U            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
- Q0 B' |6 ^3 \5 L                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
& Q9 O5 O# J8 T; @                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
. R8 Y! J7 R2 V7 ?1 ?* B0 F                        PartsTable[6,Lines]:=j;
5 \/ z1 m7 k; J- t* y8 z+ E' o  v                end;
7 {+ S7 b8 N! n( D# g8 x        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]);
1 N* @' W. A. j/ g$ B        Machine.Name :=MachineName;
5 n7 V. _( h0 p- I1 _% }        Machine.ProcTime :=5;
/ u6 p* G# j* _8 h& P) F        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]);
5 F% X; B+ u! T1 b# C7 _                 Buf.Name :=BufName;
5 J# H6 B6 G1 r+ h' V: }0 t        Buf.Capacity :=5000;
! g) `! B2 P  ?) N        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
+ q9 m, U- V; F& `; a5 Snext;
) |! _6 Z/ ?7 z7 E0 K" kend;
5 \2 \- l( z; ~: J' c. B/ X

五五

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

wudi

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