程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
& Q/ R, p5 W. H+ m7 I        i,j,Rows,Lines:integer;
, Y5 c2 S2 k: g& n! k$ F# J        MachineName,BufName:string;
1 g7 v) c  j8 `2 c# k" C        Machine,Buf:object;
do
/ b  C4 e. T9 I6 w        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
  I  C& w( y1 x$ r7 n; \" B                        print "Yes";
                when 32 then
' f: I% z8 G; Y9 [+ v                        print "No";
                else
) H( ~# ?' B7 U& z( ?, Y                        print "Cancel";
, N7 E- c' t- I* R0 }! T+ n! c                end;
        EventController.stop;
4 P7 C) T& Q- d2 v% E9 s" \8 T% zend;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
) r% O/ X) U3 o$ |                if j<i then
  N  ]/ U3 T$ q9 Q, P                        if D_From_To_Chart[j,i]<=0 then
% O: x# n4 u* S9 f, p+ k                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
& u, f6 x! J# e8 E0 z4 @, @$ d                        end;
                else
                        if j=i then
2 z$ \# y4 Y( w1 Q* N. S5 {& a                                D_From_To_Chart[j,i]:=0;
) W/ b! X# U( C' z5 f5 @" Z7 n( S                        else
9 u: ?; D2 y: W5 g                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
$ }/ f( j" t( `                                        EventController.stop;
                                end;
                        end;
                end;
1 I# }3 V$ w; |& B        next;
5 [1 p( _! x/ p' d# U& H5 B( pnext;

/ q& a! c8 X/ @" K1 gend;
; ~% u) ^$ i0 ?
  G( B8 S% g2 r2 r    Lines :=0;
7 X7 ]5 d2 r, f/ f  k        for i:1 to Number_Of_Machine loop
) X" s6 }) g, B3 O. y5 z- d        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            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"));
$ D5 w7 A; _: R* C. I) d                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
7 x- b4 Y/ K* ?3 l: Z0 |                        PartsTable[6,Lines]:=j;
! t, O) f2 M0 k) m, H8 ]8 V" E& b                end;
        next;
4 [# @1 a4 q( E2 T$ `% N" f" _        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;
6 F% D- e- ]% ^, o        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
" ]9 B+ }; ?2 V( ^0 [        BufName :=sprint("BF",Rows);
$ U& f, F- s# h3 b        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;
  f9 ?  B, w3 F* h! w1 C+ \; ]        Buf.Capacity :=5000;
2 d1 Q+ {1 D7 q4 s        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
% _% ]1 x3 C5 U" l5 Cend;
" y& q  v# c( y* x+ e' a- e

五五

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

wudi

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