程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
7 B: X* H0 R. Z& w2 R        MachineName,BufName:string;
        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
8 o* U  R6 W, D                        print "Yes";
* q0 h; I- x5 C" X, H9 p                when 32 then
                        print "No";
4 b+ l2 z. m5 x- A+ S1 }                else
                        print "Cancel";
' G. c6 c/ x8 \: D1 h# y+ a" U                end;
0 U, v  ^+ C( }" J        EventController.stop;
end;
; O, Q7 q  r1 n3 y; P1 lPartsTable.delete;
for i:=1 to Number_Of_Machine loop
) c8 T; m  E" D; g4 r        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];
0 E$ i9 t5 ^* b% l5 Y% f* p                        end;
                else
                        if j=i then
& Z% |& `( L4 n* }5 ^6 U6 D                                D_From_To_Chart[j,i]:=0;
/ o+ P- q# @4 m2 Z1 u' R7 j$ p/ A* Z                        else
                                if D_From_To_Chart[j,i]<=0 then
) q: X4 W/ ]" k$ }" x. d0 t                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
                end;
" p, M5 X9 M/ d  @) F4 Z        next;
next;
5 F8 d2 L1 b7 V7 I# o
  G; F! A% }9 Y8 \* p. q' c: X4 bend;

8 A0 b+ s+ W  S+ N: d& z/ {    Lines :=0;
        for i:1 to Number_Of_Machine loop
: P) r4 l* r; n8 A% V        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
  W, d$ w6 S/ c) y+ b/ C# E! G        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
& _7 h& M5 n* `, Y# }                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
  J9 ?8 n8 E- A1 }. o& d% B                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
' ]1 p" r8 ^0 T. u- U                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
  q% _8 [) K6 V9 `1 T                end;
        next;
. L* N( ~' x6 w$ |' W  z        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]);
! Y$ a  ?- M. X        Machine.Name :=MachineName;
, v3 [: N, w% j! k) j9 d: Q        Machine.ProcTime :=5;
, Y0 l. S* W1 G; X% O3 V. e        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
. K& |$ D/ g7 y; Y$ r+ L* ~        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]);
6 T. J0 [( M; Y                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
4 Y: f. G: j; ~8 _$ E: D# ?: u* _        .MaterialFlow.Connector.connect(Buf,Machine);
. b: D  J9 j8 |& pnext;
& _5 L4 ?( {- }  ?& C! e& Qend;

五五

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

wudi

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