程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
9 Z) e' L0 y; p        MachineName,BufName:string;
        Machine,Buf:object;
do
, m0 t5 B$ S4 A' C9 J9 z1 C- _* a        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
9 E% K( j7 J, ]  K3 Y" B% K: q& g                when 16 then
8 D" k& ]: L9 g6 v! o3 a                        print "Yes";
                when 32 then
                        print "No";
  l: u. V  I2 k8 S; I. N                else
: J' P( Q# X2 {8 k! i                        print "Cancel";
                end;
# c2 j% S* O/ R        EventController.stop;
end;
4 o- d4 f6 `7 N9 [PartsTable.delete;
" M  q, t) D! u7 _6 O5 Afor i:=1 to Number_Of_Machine loop
: |2 R5 r/ G& k2 _8 ~' P        for j:=1 to Number_Of_Machine loop
: }6 V; B5 H) l- B# \$ n# c                if j<i then
6 \- E* w2 y4 X3 ]( \4 }4 @                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
, Z$ G; }* `8 _" W& U8 o6 ]                        end;
9 p  K8 r$ A) k0 b0 W                else
                        if j=i then
, E. @% j. o$ ~# e) V; S4 o                                D_From_To_Chart[j,i]:=0;
2 ^- |( N2 l- P9 c0 C$ |+ M                        else
/ e9 c* C9 _- B! R$ o6 L" h/ h                                if D_From_To_Chart[j,i]<=0 then
8 y# _7 R! {3 {2 v) r                                        messageBox("distence<=0...,",50,13);
5 d; ~" p7 G- l9 U                                        EventController.stop;
) Y1 X8 u, z3 ]/ s, c1 r$ W                                end;
: _% F9 }  s) ^3 X                        end;
! d6 X9 H2 ?0 }  R                end;
/ Y, r4 V5 R) B& X% C8 d        next;
! ]% y$ s; G( B' B$ Gnext;
+ h  }, K0 ~' u+ M) B+ Y9 g# V
end;

    Lines :=0;
, n3 p  L% N3 C' u        for i:1 to Number_Of_Machine loop
7 Z3 G6 L& P  Q9 p  w1 D! y        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
: l% P7 z: h* ^; C- y) X6 i' Y, i        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
) E. z6 ?. K: _. ?# ^3 L                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
' [; R) o+ v2 B6 ~                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
, C) I+ g) |( v  K                        PartsTable[3,Lines]:=sprint("Parts");
  L. P% L! g& v) j  G                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
0 a* x( _' o# d" X* m2 l                end;
        next;
7 X1 E4 N- y  W9 f& S3 B& n        MachineName :=sprint("M",Rows);
/ {4 u$ ~" ^  s- H2 T! X" A        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;
4 L) k' O4 @2 Q# ~% q        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
# A: [  ?4 J: ~2 E1 e9 ]. L# t7 m. G       
        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]);
: O, X7 H6 x' @7 @                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
( F$ U) t8 C" _# A        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
3 b6 ]* Q- u- h! Z) ]* t

五五

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

wudi

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