程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
3 r$ u8 |+ W: V+ Zis
8 F9 p) ^6 R! u0 q/ k: S* X$ I' p        i,j,Rows,Lines:integer;
- t* J1 c6 |5 T% }        MachineName,BufName:string;
        Machine,Buf:object;
do
5 f6 j  c" G& n8 x        if Number_Of_Machine/=D_From_To_Chart.YDim then
! m9 v- J7 h* b/ t9 p                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
# `3 q$ E8 B7 o0 X- p. M                when 32 then
9 K0 ~- Y: M5 a! t                        print "No";
                else
                        print "Cancel";
                end;
( P1 Z. Y4 \: \        EventController.stop;
end;
PartsTable.delete;
% B* ?% G$ g0 A( T% L. x4 R  I6 S8 |for i:=1 to Number_Of_Machine loop
$ q2 @0 G, G! X; T4 j3 K        for j:=1 to Number_Of_Machine loop
                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
) ^  A/ S7 q+ U0 g4 D. u  b                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
. K- |$ w* @/ l) l/ w                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
6 B4 w9 p* H4 b% i                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
' y7 g  O4 G- q& A2 e                                end;
6 L& a! a3 s& @/ T% d                        end;
                end;
        next;
next;

end;
, \' L: C8 [! Z4 n" B& j0 Z) V
, h$ {( _) Z, U    Lines :=0;
        for i:1 to Number_Of_Machine loop
: U  j4 H, ~- T+ {6 V- W7 V        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
9 c' [$ I+ R' g0 ~; `            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            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");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
        next;
. v- n, u4 f3 y, _' ]        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]);
' R5 r3 h2 u$ \! p) T) z( i! Y5 f        Machine.Name :=MachineName;
( _) a( e% p+ B* R+ H        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
2 H- `2 N  Y1 W' N9 f" ~        Machine.ExitCtrl :=ref(Leave);
" i  T2 _  `4 h5 [( w, ]       
; P/ s) X0 U/ ]0 [        BufName :=sprint("BF",Rows);
8 x7 e" ?* X. I1 a# k        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;
- B2 r( b3 ?4 l% n/ |* S8 }        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
1 x# q! |/ l7 b  s! @2 Snext;
end;
5 ]/ U0 X" }  k/ C: ?0 y

五五

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

wudi

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