程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
! P1 l0 F+ i- ~1 R( |. V: K) F        i,j,Rows,Lines:integer;
+ ?- z/ H, h8 a0 n6 t0 V& r        MachineName,BufName:string;
        Machine,Buf:object;
3 N  W/ ?/ E% b- qdo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
: S$ P/ i7 J! \8 `% Q0 [2 m                when 16 then
6 K5 w7 ~4 l/ N# N) I                        print "Yes";
  o- `* L$ N% r7 |- q                when 32 then
# ?) A8 _5 W1 ^# j1 b                        print "No";
                else
                        print "Cancel";
  }0 K( Y6 A8 _4 S# C/ s3 @) f                end;
        EventController.stop;
end;
/ M) {' C6 k) W' ~8 aPartsTable.delete;
for i:=1 to Number_Of_Machine loop
6 k( n4 d3 ~% Y- v( x        for j:=1 to Number_Of_Machine loop
: B; I: {3 ^% U( v                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
. k! @5 _& d0 J' |7 U                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
. H, Z: v! o7 c; P: T9 n! m                        if j=i then
, ~/ w* R& v8 i- j. }                                D_From_To_Chart[j,i]:=0;
' E! {9 ^; X" A                        else
+ ~; v/ }7 P- d, W3 @" }! ]; ]                                if D_From_To_Chart[j,i]<=0 then
: v9 z% l8 c/ n$ M$ P                                        messageBox("distence<=0...,",50,13);
. `! \) v1 w# U: {4 G& {                                        EventController.stop;
5 C2 G' x3 c* a% l% l! U3 q/ v                                end;
                        end;
                end;
" O( |9 l8 B3 h' |/ I' K. ?        next;
/ G5 c" m2 |/ E% H: c2 U4 H( jnext;
! A7 I4 T% n) W7 H1 r
end;

    Lines :=0;
6 `5 u8 P6 u1 |, Y9 `        for i:1 to Number_Of_Machine loop
2 ^7 @1 n7 i8 q0 [6 n. `* Q. x& o        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
8 G, y) d' }6 R) H% ^+ Q. b        MachineSequence[2,i]:=Rows;
$ L: o; H% z* e( `$ h# m7 g            for j:1 to Number_Of_Machine loop
% {) v4 B! g& p' {                    if W_From_To_Chart[j,Rows]>0 then
7 Q8 D( b, I. g1 x0 Q                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
; f2 ^8 J( o+ }$ g) v# ]                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
/ z5 I  X4 W! [; ^                        PartsTable[3,Lines]:=sprint("Parts");
( ?; t4 l" R% |                        PartsTable[5,Lines]:=Rows;
, }" t7 ^( O6 }( {                        PartsTable[6,Lines]:=j;
' j3 b% D  P! G# e                end;
        next;
7 I# ~5 U6 N, i4 @6 l1 ~& C3 q) j        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]);
9 g# _% w7 ^8 w" _& x/ t! i        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
% w" ?+ h* ?- {" Z$ A        Machine.label :=sprint("machine_",Rows);
% q. f/ X9 q5 Q7 B9 R  _        Machine.ExitCtrl :=ref(Leave);
       
3 A9 V. F; n4 |5 [; Z$ G3 ~. m        BufName :=sprint("BF",Rows);
9 F: p; B8 F7 d3 M& k; H# C        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]);
9 M/ O5 y. _0 z                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
  d  j9 @+ O  U% A0 f        Buf.ProcTime :=0;
1 \; w% ?' G( O0 k$ i3 Z$ v        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
0 l0 b8 G9 ?; i+ ^

五五

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

wudi

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