程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
0 K% s0 D# L; b) R8 ]' {        i,j,Rows,Lines:integer;
( U8 N' ?8 N8 M        MachineName,BufName:string;
6 J' [! ]" o/ c3 J) W3 K9 {9 \        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
8 J1 d2 b! F' p/ S, Z' ^                        print "Yes";
                when 32 then
                        print "No";
4 d$ s. f7 s5 A! c8 l) V                else
                        print "Cancel";
                end;
        EventController.stop;
1 q! R& M5 J! {- L8 `3 m2 k' zend;
PartsTable.delete;
1 l) P0 }  R0 Y. p2 f+ Ffor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
% g8 M+ [/ e6 }4 R4 @1 D                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
* i9 o, _! z: ?1 \                        end;
                else
4 U. U3 A% ]& m  E  c# g6 u$ g                        if j=i then
# d3 p$ `6 W1 U; U: j- V* x                                D_From_To_Chart[j,i]:=0;
                        else
3 V+ f7 O& _6 N                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
5 l7 j1 c) L' G. G/ u                                end;
                        end;
                end;
        next;
next;
% h: p$ f* N, I3 [( e& o, C
7 ]5 j8 d, |8 r1 a8 }1 V- J9 g( Dend;
) l/ f1 k' Y: }" e. B
" k1 }! v# r: |    Lines :=0;
! J% y8 G' l$ K) `) w  v        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
1 m* [& g: x. W& `9 J        MachineSequence[2,i]:=Rows;
+ s3 c! Y* |! t            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
" M$ n/ }( f6 Y                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
  F  _% T# v1 j& Z0 Z                        PartsTable[5,Lines]:=Rows;
* F  {8 D  R4 O4 Z                        PartsTable[6,Lines]:=j;
                end;
1 L3 x' f0 @; `; g+ O        next;
& o9 A* U) v( Q, a  g8 ^        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;
+ l0 c5 K$ V4 C        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
. @4 B7 q" J% ?2 q       
. P3 ]2 Y* U1 _4 g        BufName :=sprint("BF",Rows);
* F7 i4 N1 Z$ @4 _( G, _/ d        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;
: a/ j8 e4 S; p) t2 u% J9 ^        Buf.ProcTime :=0;
' z3 v8 l  S$ Q  Z/ _        .MaterialFlow.Connector.connect(Buf,Machine);
$ t8 W8 c# Y+ g1 S. N. U% V! Lnext;
end;
5 O* b7 [7 f+ H; h& Y; I; B: e

五五

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

wudi

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