程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
3 a- e2 E$ J) a- bdo
% m" m! {$ T  E: E, {        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
! Z1 X( c9 V! n6 T* }; R" i( H! x                when 16 then
3 }' I" F: v8 y2 l; h5 k                        print "Yes";
/ Z4 A" T. i3 Y* W* ]- g* S* o                when 32 then
                        print "No";
                else
                        print "Cancel";
% {9 s7 ~) K5 p& V6 q7 x7 B                end;
; U) t6 X/ L% k) T! V, P        EventController.stop;
end;
3 I7 B; T- i; c7 KPartsTable.delete;
* r/ l6 J4 @9 ^% I. J" Ifor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
  \$ n4 P" y* i+ e, f$ p* [$ `' \                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
% |# ]* ]( K9 U                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
8 R7 A8 W3 r5 \1 r' _, C; @                        end;
                else
                        if j=i then
2 q1 z. H  ?+ g6 |, l                                D_From_To_Chart[j,i]:=0;
                        else
: H, a" j# t5 e& {% w                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
' J% t) L' \) Q; U                                        EventController.stop;
% L. J0 X  C$ F. z8 y) V                                end;
                        end;
, O) p: Z3 X7 ?/ ?6 V                end;
        next;
next;
* |8 r( a6 ?$ G, l" @' {2 {8 l" J
end;
# Q/ e2 o4 \' Y1 D/ s/ B; w) c
! @% K8 T! Z! S  O& g    Lines :=0;
        for i:1 to Number_Of_Machine loop
! b( h0 F$ ^! i  U2 L: \* ?( C( a        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
% J; _% J1 |; P        MachineSequence[2,i]:=Rows;
1 F3 c. \" E8 d+ {: h( i            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
: u& d- h- V8 i! v5 p  M) n- P% b% }                            Lines :=Lines+1;
. U- n8 d2 x! B" M                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
: J. C) U2 U- v' m+ r# i' x                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
# _5 m% n1 Q7 ?$ j' {8 W                        PartsTable[5,Lines]:=Rows;
, L( ~. ~/ A) O1 \. S                        PartsTable[6,Lines]:=j;
                end;
/ s5 N% g3 g" x+ ^  d        next;
        MachineName :=sprint("M",Rows);
# a* [/ }% c3 D: M- y' t7 U2 r        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;
        Machine.label :=sprint("machine_",Rows);
* K' G+ ]7 H3 g9 I& Q        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
; E( @# q$ K2 l# \1 U2 r. 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]);
                Buf.Name :=BufName;
        Buf.Capacity :=5000;
6 Y$ F+ J# E/ }- c" V2 V/ R# S        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
4 |: [5 {: E3 A7 \end;
3 E. U/ y5 F4 V3 k- e

五五

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

wudi

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