程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
4 F% t* P( w+ kis
        i,j,Rows,Lines:integer;
8 Q; V" @3 f9 {: U& r        MachineName,BufName:string;
        Machine,Buf:object;
do
) q; i; `) Z, r) M        if Number_Of_Machine/=D_From_To_Chart.YDim then
1 C2 g: e; f6 C5 I                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
1 o9 F: o( p* v$ _) Y* y                        print "Yes";
3 R  c' Z- d4 C. p- z, T! E                when 32 then
                        print "No";
. w0 `. p9 V) Z( U& j                else
1 N8 H; P! R* d3 m' I( o                        print "Cancel";
                end;
) W8 w5 U: O  e& v' W        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
: \2 B( `8 y9 Z8 b8 S- ^: H& S                        if D_From_To_Chart[j,i]<=0 then
% b8 n2 d* V* U/ S1 H4 q' z0 c                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
7 Z* h1 P2 v/ Q. ~, @$ W, f                        end;
  ]+ u5 H9 i+ B5 k, N: l. n                else
                        if j=i then
2 e" H4 S8 F) p1 N9 `                                D_From_To_Chart[j,i]:=0;
8 l% Y+ k: d$ C( T                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
: J" j" E% V8 E: p! h$ t; A                                        EventController.stop;
4 I% x( e' |8 Q4 D1 u" f                                end;
                        end;
                end;
        next;
next;

end;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
8 [- Q) |  s( Q/ U6 c0 F; I" P( Y        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
& n) U* p( K, G. Y: G! z6 v: ~: U                    if W_From_To_Chart[j,Rows]>0 then
# w" M. R# b% c                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
& z4 ^3 q2 c, Z& l                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
! j3 y$ Z' O# t3 @                        PartsTable[6,Lines]:=j;
4 j, p5 J0 D8 ?% B                end;
" w( M2 J9 z3 r! J# a2 F- _( L        next;
1 l- a- c8 Z4 U& o        MachineName :=sprint("M",Rows);
/ I4 p4 p- W3 n' O. y& ]        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;
1 T, u6 ^+ g( y- d        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
/ R3 v) R1 R1 j        Machine.ExitCtrl :=ref(Leave);
       
* t; f2 ~+ Y- V7 C* l        BufName :=sprint("BF",Rows);
0 V( T- S. [# I8 T        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]);
' D0 S5 E8 F1 ?                 Buf.Name :=BufName;
9 W+ g9 |  Y  d        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
9 R8 t8 ~2 r" hnext;
  W" ~  z7 S9 s/ X9 ^+ h5 oend;

五五

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

wudi

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