程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
0 p+ R  w; N% D1 y$ w* t8 I        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
* m2 G" e7 ]$ q# J9 a        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
2 A: a  f8 B( M* Y                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
% K* s, E" R' _3 k1 S: V                        print "Yes";
                when 32 then
                        print "No";
                else
                        print "Cancel";
# y# U" p/ H$ x( ~3 t                end;
        EventController.stop;
end;
PartsTable.delete;
  A. Q! M" F  |; d+ W. N. ]2 wfor i:=1 to Number_Of_Machine loop
/ R9 G* m# q2 }0 Z2 ]0 A7 R  C" Q5 t: _, ~        for j:=1 to Number_Of_Machine loop
                if j<i then
5 k3 v6 l: K* S                        if D_From_To_Chart[j,i]<=0 then
% u8 b$ _3 Y2 F! F) U) a6 ?                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
- y/ s2 I* X- P. y3 W% O( G                        end;
" O2 s; t' [7 x7 G- v                else
                        if j=i then
8 c0 A9 t- `" X                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
* h9 T, M$ r3 u                                        messageBox("distence<=0...,",50,13);
) Q- n* U) H0 p* @2 q. u                                        EventController.stop;
                                end;
                        end;
                end;
        next;
next;
! n( Q, U4 i7 z% |6 t
end;
$ X8 d1 L2 o& y1 a
" Q- t1 S: f7 g$ ~+ C    Lines :=0;
8 h5 f0 z; o4 _        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
6 U6 \* }$ R+ W/ D        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
9 o# u/ ?1 n: b" r$ B1 s                    if W_From_To_Chart[j,Rows]>0 then
2 Y% {3 m7 H; k% q! [                            Lines :=Lines+1;
6 Z7 W/ w2 u' h4 Z# T) k0 q+ n$ P                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
, x) D' l; J0 k5 n                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
, [0 ]3 l, D; P! {1 v                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
0 V6 c1 a( h/ X        next;
        MachineName :=sprint("M",Rows);
2 f3 U9 A, m& t& c1 |        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;
        Machine.ProcTime :=5;
, J( `. e8 I$ t/ X& @        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
  H% S7 W: f- y2 k8 R. G        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]);
; Q) q9 R* F9 w9 I6 n$ w                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
+ X& p6 c! b+ |        Buf.ProcTime :=0;
! l" v/ L6 v( K7 d7 f        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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