程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
( e% @: P- K' L        i,j,Rows,Lines:integer;
/ J1 T  D$ x: U/ a5 H* R  P+ j        MachineName,BufName:string;
3 k& U3 z. t( D: n: @, x        Machine,Buf:object;
4 K9 t% i  d! L( S$ Edo
. ^8 ^3 }) a$ F: ]7 Z- u* x        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
! [. F  j7 l2 e                when 16 then
4 d* U  r/ @  p( R3 }! P& ^# F                        print "Yes";
                when 32 then
                        print "No";
5 H1 i$ _! ^0 Z8 l. O                else
                        print "Cancel";
/ f; m/ x4 Q3 {  c/ @3 z                end;
        EventController.stop;
end;
2 ^2 X2 D, j# t8 D, G6 p2 a% Y* APartsTable.delete;
1 b& j1 t+ h5 L# `1 Yfor i:=1 to Number_Of_Machine loop
6 o; h8 b) F& Q        for j:=1 to Number_Of_Machine loop
" l1 X* \2 x* Y+ G/ I                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];
4 i) y7 w  g, [8 q1 w, h  x. L5 n                        end;
                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
/ R7 w: M: u  S7 J' V8 [- l& e                        else
, H( E/ k1 S) `+ u( W                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
6 i6 `' X0 I4 R" m2 T; P+ ~, p2 k                                        EventController.stop;
                                end;
  f, o  p: u7 y3 _                        end;
                end;
        next;
next;

8 B7 F" W; T+ o& pend;

2 T; G- u) }9 z+ Y9 Z    Lines :=0;
        for i:1 to Number_Of_Machine loop
7 B, L" ~; U* s- U7 a        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
/ h: r  W5 d* v* w  t- K        MachineSequence[2,i]:=Rows;
) ^. b  n7 T6 g/ l5 i            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
1 `+ J& ?5 U8 }% Q4 x1 f. l                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
/ `( d6 U, u( W1 T( @1 i                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
- o' A% g+ D* Z; x0 F                        PartsTable[6,Lines]:=j;
                end;
+ _- O( n5 H9 k) t/ Q+ U! K        next;
        MachineName :=sprint("M",Rows);
) M/ e# g" E1 E# |; O# j/ \        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;
6 {3 i7 e3 a( Z5 y1 W  d: M7 I, c        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
( v* V. ^2 D/ x! l' @! ~3 V' y; o/ h        Machine.ExitCtrl :=ref(Leave);
       
/ b( L; t  D/ S4 \3 Y2 n& L: ]        BufName :=sprint("BF",Rows);
! X8 P) C5 s, U4 U$ A. Q        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]);
% L$ u, u7 l5 G$ r                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
5 @, D$ @3 M/ ~% e, E& m( y$ i        .MaterialFlow.Connector.connect(Buf,Machine);
next;
* ^, h6 K* F; Fend;

五五

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

wudi

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