程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
% `6 v4 z2 A: n% e* p% j        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
do
& v2 a5 e. W9 l1 z. r+ t! W+ }1 L3 t        if Number_Of_Machine/=D_From_To_Chart.YDim then
9 k8 j. A7 F1 _# [! ~. H( }                inspect messageBox("Number Wrong...,",50,13)
9 v5 s# |2 Z* l( R) b: a                when 16 then
1 I6 g( t6 T+ ~' `1 p                        print "Yes";
9 z+ A0 V4 q: ^& V                when 32 then
8 o* d3 L& c: O( J4 v                        print "No";
5 e( W) |- A4 ]  ^- J( Q0 n                else
4 S9 U' x! W0 \  v  v                        print "Cancel";
                end;
, y; w0 N$ f: K! N! U        EventController.stop;
end;
0 i9 z4 L' r" \9 P5 D) f% m% Y. XPartsTable.delete;
" e8 r+ r+ V, y0 R, |2 n: }+ ofor i:=1 to Number_Of_Machine loop
" s% i) k/ F5 s1 g4 Q: \        for j:=1 to Number_Of_Machine loop
( u- l8 `' h% u7 Z) W4 f7 Y                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;
2 z) b* T1 h# u  p                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
7 [# H9 _3 J) s% [5 R$ q                                end;
                        end;
                end;
        next;
next;

end;
' h' N8 c5 e$ x: {# F: ^* y
6 A1 h- N" t* k7 j) ^    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
# h5 ~! O" A8 }7 f# \( b% b        MachineSequence[2,i]:=Rows;
7 A0 M  C; W( g% `6 O+ F            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
5 j5 @/ G' H) C% b: J- d                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
( _' R' g. D. ~( r) v9 O$ }1 M                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
, V( x9 w/ P3 y7 P% u9 k                        PartsTable[6,Lines]:=j;
                end;
7 q7 q. {8 ^- G' w% O* V        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]);
8 Q, U6 c+ t1 W$ w% G, }7 J2 e        Machine.Name :=MachineName;
% h3 A6 L' A, t# E        Machine.ProcTime :=5;
3 N% p7 V* W2 ~3 e# L$ h        Machine.label :=sprint("machine_",Rows);
+ k2 {( m7 A1 c9 T+ N        Machine.ExitCtrl :=ref(Leave);
' Q; ?: G3 n/ z       
        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;
! I. \# y$ j& f* ]+ r2 s# P        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
# @% |" b! t8 v3 {: [4 P3 S7 w. Onext;
7 S! F) B, d; A2 C, K  |end;
, n" I& P5 ?! d/ V* Z% X

五五

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

wudi

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