程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
6 a; K7 t7 a  O8 U$ g& p        Machine,Buf:object;
do
* R% _$ b  y9 }( S! {- A        if Number_Of_Machine/=D_From_To_Chart.YDim then
8 x! O  ?$ z% T6 j1 e                inspect messageBox("Number Wrong...,",50,13)
$ L0 y6 N( ?$ G# a+ ~0 E7 [: x                when 16 then
                        print "Yes";
1 }# `! ?' F0 I: m# B% t5 g3 Y                when 32 then
                        print "No";
                else
                        print "Cancel";
3 A: q+ i' j# U% N, }- ~/ o. |                end;
: H, C- u4 [! w, J3 @+ e        EventController.stop;
7 y. x1 c" f# X# o7 P; Eend;
2 y8 U" m3 m  pPartsTable.delete;
3 v6 C& K- A7 x1 |for i:=1 to Number_Of_Machine loop
! {9 g. F' u3 ?+ U( K1 o        for j:=1 to Number_Of_Machine loop
                if j<i then
# @1 l! v4 X* J1 l5 m8 E7 Z                        if D_From_To_Chart[j,i]<=0 then
. X0 a; w" F4 E/ D0 \! K                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
. b) q& N+ m0 V3 {" P$ k                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
0 S% G% e0 {0 e* Y" h' Y+ e  t                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
, F$ ]7 @5 g- D6 Z' ^# S                        end;
# p6 d2 C" l4 C8 G& }1 m% s: s: m% n1 c                end;
        next;
next;
9 {  I4 U" V: v/ d5 g
end;

    Lines :=0;
7 N! A% r, \3 ?5 t/ \: L( W        for i:1 to Number_Of_Machine loop
5 i$ h1 A7 K# p; L7 s4 P6 V        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
9 p. n0 h$ ]' x3 Q5 H) a8 D            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
7 u2 f( x8 o2 j7 H- X                            Lines :=Lines+1;
- ]3 i% [- R( U/ ^                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
2 p  a; D' n1 U- t* L) O- w! [                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
3 ]. w( I) g3 G                        PartsTable[6,Lines]:=j;
5 m  \, O5 ^$ j+ `% w' U  F9 M                end;
        next;
7 |4 e7 O" F& H6 T4 l        MachineName :=sprint("M",Rows);
  c6 w* P4 T! T. T: C, [        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]);
4 }0 C' D. b' d& _: r2 Q( j        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
4 [9 o. }7 ~  _; b* z' V        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
, ?$ g1 r7 D) x- w& u       
7 y. c9 A! X6 }5 {" ~/ y1 E1 J        BufName :=sprint("BF",Rows);
2 ^; D+ Y7 c3 b7 Q) C: B# 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]);
                Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
! E. [4 @2 Q+ p& Bnext;
end;

五五

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

wudi

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