程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
9 `$ J9 s- _" `0 Yis
        i,j,Rows,Lines:integer;
- B' [& i; |! M' u        MachineName,BufName:string;
        Machine,Buf:object;
do
# o, G: D% C) p/ C& z  p        if Number_Of_Machine/=D_From_To_Chart.YDim then
5 ~1 x. S  p& E4 r7 V                inspect messageBox("Number Wrong...,",50,13)
9 u: |2 }2 K! s1 G& m' R' O0 t8 C                when 16 then
                        print "Yes";
. k) x! R7 Y( p) S. L9 s                when 32 then
                        print "No";
                else
                        print "Cancel";
                end;
        EventController.stop;
end;
9 ~" l- j+ P$ mPartsTable.delete;
# Z1 ^5 v7 M  L+ n* p& afor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
" D3 w( E% o) Z' x3 d8 t+ |0 H                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
5 |! K' q9 V8 t8 X( b7 c/ |- s                else
                        if j=i then
( {0 K& X; V% h) I1 A                                D_From_To_Chart[j,i]:=0;
7 K6 W1 q3 }# M4 l7 w: `                        else
                                if D_From_To_Chart[j,i]<=0 then
" f1 H; L7 w2 U$ J% K3 r7 `4 |/ y                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
                end;
% |8 S- t' \7 V/ L( o3 h        next;
7 a% E) E5 N( G# Hnext;

4 s& p3 t; a% n. d9 bend;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
4 Q1 T4 v# M. x1 N/ m, u( T        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
% x% c: p4 r% N5 ^) S                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
* K! e; M' T- ^2 c# L! N% n                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
6 y# ^) p! Q* Z( S8 X4 }) y                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
; h7 p* N- s3 I# Y$ K: g1 B! U                        PartsTable[3,Lines]:=sprint("Parts");
6 e8 U4 j" [5 ?0 R% G. H) W. `7 ?                        PartsTable[5,Lines]:=Rows;
' J5 v5 I- z& {, c! d                        PartsTable[6,Lines]:=j;
5 k4 ^( T* U( A  o                end;
1 j6 h' j- G( i% d        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;
+ w' @8 O& m. N+ c        Machine.ProcTime :=5;
* }* V6 m# ^# Y. Y" E( @+ m$ B; K        Machine.label :=sprint("machine_",Rows);
9 Q2 G. F& w  y) p7 q6 S! X        Machine.ExitCtrl :=ref(Leave);
" j4 r1 b/ e1 y       
3 V, b- V$ o" l$ ~3 @        BufName :=sprint("BF",Rows);
1 q0 v; Q( N: n) }: L        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;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
& v$ q5 G' _. F7 J$ W9 ~4 M+ L+ k        .MaterialFlow.Connector.connect(Buf,Machine);
+ b0 ]4 u  P& |( h  v8 _next;
" z& _' O- f* v+ ]1 j- Uend;
( e' c2 Y& }: t

五五

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

wudi

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