程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
5 ~, `( m) `8 D9 [: H, G  zis
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
: |6 |6 m7 e- [* p                inspect messageBox("Number Wrong...,",50,13)
9 F- d5 r/ m' w  _1 ^                when 16 then
5 p% x: q* j- _& X                        print "Yes";
- W6 @' m3 V: U! X5 @6 j                when 32 then
                        print "No";
3 _9 o" k+ Z8 X7 \+ v5 V                else
                        print "Cancel";
1 p! n( {- U- [& _& g                end;
        EventController.stop;
end;
! W+ z0 W7 i6 {3 Y4 APartsTable.delete;
1 k- L& }7 }- L( bfor i:=1 to Number_Of_Machine loop
        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];
                        end;
2 d+ K8 E9 h# m. J                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
1 A  P4 h5 K; s. V' n                        else
6 ]0 ]' m& G1 F- R: ?% k% o                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
) I8 C& f9 u2 J; Z2 Q" U                                end;
% k, b$ j) k  F. t3 j3 K7 n' U                        end;
                end;
" j5 c, r- }/ g! [        next;
# X& B+ }8 Z6 ynext;

  a7 a. v9 K% A  q$ Vend;
2 X/ i! X6 X) r  J* o- y. Q. a
. }; |) C& B1 `9 _    Lines :=0;
) N; r3 c+ R* h& g" L        for i:1 to Number_Of_Machine loop
; m" U& j/ ?; r' {        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
  n$ J% h: ?* \% N: _/ ~4 w1 O                    if W_From_To_Chart[j,Rows]>0 then
; T6 D: w: U6 @                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
/ w& C, f% k( r) b                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
3 m# }$ X3 G, [* \) x9 v; k                        PartsTable[3,Lines]:=sprint("Parts");
' p/ Z, O( ^! e- p/ q% g0 e: W                        PartsTable[5,Lines]:=Rows;
8 r- [. C. z1 k/ G. ]4 w                        PartsTable[6,Lines]:=j;
                end;
) Y2 |; G! H/ B0 N" T        next;
        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]);
$ [0 s9 A2 l8 ^" s, _        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
7 A8 j' I' G0 j9 C, J; m% j        Machine.ExitCtrl :=ref(Leave);
       
        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;
2 E$ T* `1 a' K! ?  e2 v/ x4 _        Buf.ProcTime :=0;
+ X( _. X& Y: M/ F' `/ z: G        .MaterialFlow.Connector.connect(Buf,Machine);
next;
; A# I& G6 J6 C/ _& Uend;

五五

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

wudi

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