程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
/ F) M% |" l; f6 ris
5 t& e$ t& p$ Z        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
+ s( w# [1 U  x# ?% {1 \9 N# L. M( ~do
) e7 V* T: O$ W6 m, |        if Number_Of_Machine/=D_From_To_Chart.YDim then
9 [2 J6 r% H- H$ F& L                inspect messageBox("Number Wrong...,",50,13)
' v* `. f& l1 ?( v  _) [                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
5 l8 x% u5 u2 `2 Y$ Y7 x+ D( T                else
                        print "Cancel";
4 O. m( j: l- _& ^' \                end;
        EventController.stop;
end;
* p5 B3 U( ~0 x8 g6 z/ h* N% gPartsTable.delete;
for i:=1 to Number_Of_Machine loop
& k3 e- W8 ?. E& T        for j:=1 to Number_Of_Machine loop
                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];
" W, Q3 t8 [( J$ u* E; j/ U6 ?8 F                        end;
                else
3 h+ w& }/ X: V7 e- W; o                        if j=i then
                                D_From_To_Chart[j,i]:=0;
* D9 \/ v# T/ F- P                        else
  C& ^* Y! L* o9 i$ R1 d9 s                                if D_From_To_Chart[j,i]<=0 then
' R" Y6 Y& Q& t) ^# w7 S& H- O                                        messageBox("distence<=0...,",50,13);
. @5 w/ W8 R* y) W' |                                        EventController.stop;
9 u2 x3 E( s. Y# @# R5 D                                end;
                        end;
; {( x+ g  S+ T4 k                end;
( Z! ~! L  }" J( L# h        next;
next;
: o- v4 T7 U: y. j3 b) Q' H
end;
6 b, D. o4 N6 _, b/ t! ~/ [8 F
    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
5 Y- O8 I4 r/ }1 P            for j:1 to Number_Of_Machine loop
8 N; }/ m: m8 B+ ^0 c+ ]                    if W_From_To_Chart[j,Rows]>0 then
3 n0 w  x& W7 e2 j% q                            Lines :=Lines+1;
2 j9 j: i9 {  M3 y& t, }: S" N: Z$ p                        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;
& s# V0 w" g" b* I" H% `                        PartsTable[6,Lines]:=j;
0 a( T  _4 ]: O4 b                end;
        next;
        MachineName :=sprint("M",Rows);
$ i6 S2 Y# R7 a% A' l- b/ ~; H        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]);
5 s; `7 ]! }6 i6 Q, r6 i( Z% W8 P6 d        Machine.Name :=MachineName;
' r4 S2 q: s1 k2 {$ |- r7 q        Machine.ProcTime :=5;
% T# `# p- n& b; m" \( Q        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
3 q) Y" x8 N! X. M        BufName :=sprint("BF",Rows);
        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;
        Buf.ProcTime :=0;
( w% S9 `+ p$ @3 H4 `        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
* y, Z2 K2 c0 b6 h# q. k

五五

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

wudi

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