程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
( K+ s, f- M$ F' z/ S        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
1 B- m1 @' r  |$ s7 b  B                inspect messageBox("Number Wrong...,",50,13)
  d6 ^' c# b  \                when 16 then
+ D" b( Y1 ~+ B% l9 m: B! [                        print "Yes";
- Q% e3 J# J; X4 |) }) X+ j$ }5 S                when 32 then
, q5 p* u" ]+ b. P+ C                        print "No";
                else
                        print "Cancel";
                end;
        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
- k; ~9 F6 g: ?& j7 C. [) s                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
8 M5 {, L7 a+ T5 C$ u                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
# T  y7 H, l$ B, ?) I                        if j=i then
! G* P  z6 r  t, I/ U; G                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
2 j9 h+ H1 W- k$ u) E                                        EventController.stop;
1 h, V( p. q, t. p                                end;
: u: G9 C/ b: S1 X, `+ A, \                        end;
* v* O$ Y+ @6 T* l+ ]6 @2 {                end;
' w5 J7 S  E) ]! P        next;
next;
* A" z  m; T0 A7 u5 A8 O8 F
/ D0 n1 b" }7 M/ k2 A, x/ S1 w& F8 j' |0 oend;

& o3 p: |  l& \) b( g- E    Lines :=0;
        for i:1 to Number_Of_Machine loop
% r( x  ?, a  f# e$ N' e; X* N        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
# H" Z1 {) v' x! P! d' u/ Y; a        MachineSequence[2,i]:=Rows;
/ }: I; a: c7 ?; E- Z' T+ L( Y            for j:1 to Number_Of_Machine loop
3 I( B, [, t% y  D                    if W_From_To_Chart[j,Rows]>0 then
6 V/ T' l) Q! {- w7 y                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
+ j7 ^1 l7 Z2 L8 b( w$ [; ]                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
% r4 \- y4 H+ g3 B/ Z                end;
& M5 l6 r3 W8 u4 G2 p5 m        next;
4 F7 _1 u( b; H6 W2 D; K4 t1 B        MachineName :=sprint("M",Rows);
6 E: q, L/ O& K7 \4 v" S7 b        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]);
. n5 B+ h9 h! |$ @" ^' N        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
- _$ T- l/ K: J; Z2 u, ?        Machine.ExitCtrl :=ref(Leave);
       
2 I* b9 e! i# n5 ?2 z. [# D        BufName :=sprint("BF",Rows);
/ K/ W1 p- V$ l3 r* Z4 H        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]);
' _7 L5 \5 X/ K8 J' M( h8 ]. l$ f3 T                 Buf.Name :=BufName;
0 E3 D, v7 p1 o4 M5 `! e2 f! Q        Buf.Capacity :=5000;
6 D. s, z( E$ Z        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
. u6 S( q3 m, S! i) k$ ]1 ^next;
end;
. E2 c6 X7 j& o$ S1 q

五五

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

wudi

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