程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
& n' l- k) b" N- k" [        MachineName,BufName:string;
9 }% D7 C' C# w- o. ?        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
" Y; W3 L* o% W+ q2 p/ W9 G8 _                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
( j# s& P8 C% q2 ?/ I$ Q$ S                when 32 then
                        print "No";
( J. B! y) e7 K$ a                else
* y* N3 \$ B6 W8 l1 g. c                        print "Cancel";
                end;
        EventController.stop;
. m* f4 V5 J6 E: T3 I  Yend;
* d; B# c) W! n9 `, m- q! `" e' z5 ~PartsTable.delete;
for i:=1 to Number_Of_Machine loop
. y! L8 v0 j  H  P& Z        for j:=1 to Number_Of_Machine loop
3 E0 S- P9 K3 C- c* r" y5 V                if j<i then
; I* U. K9 J% {  J1 B, c& i& [5 R                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
$ K$ K7 P1 k% {5 l$ U7 q( w7 F                        end;
                else
                        if j=i then
* N9 p3 M! S& r2 `! s                                D_From_To_Chart[j,i]:=0;
5 p. N( g4 ]' d1 n4 e                        else
! @8 L+ X- G' f, N9 U% @. o2 @% ^                                if D_From_To_Chart[j,i]<=0 then
+ H) X+ w( j" D- b$ w' t* S3 Y  ~; O                                        messageBox("distence<=0...,",50,13);
; d; `( K$ V" n" `5 U                                        EventController.stop;
                                end;
7 x; l+ }$ B; [1 A1 }( v! x* |+ H                        end;
! Y" N6 w# I0 k. H' F% H                end;
" I, Y! e' P2 {6 o" r0 {) R; A0 B        next;
) W& {' }. Y1 Q9 f' Enext;
# A& |2 v* v; B0 T7 ?- \
end;
7 S2 z# o+ i3 ], L: h% H/ U
7 ?2 q1 j4 R, }$ E) g7 C2 K9 h9 e    Lines :=0;
        for i:1 to Number_Of_Machine loop
+ F2 r9 w1 O) v: ~' C6 `        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
$ Z) m) H+ ^) M  w0 q        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
8 j! i7 N" o5 y0 j  }                            Lines :=Lines+1;
, t/ y+ ^+ H6 X  i0 f0 X2 i                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
6 ^) ]( c8 i3 m* [3 @                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
  [, B, _5 r3 i2 X2 K' u  ]' ?, s, j. b                        PartsTable[3,Lines]:=sprint("Parts");
" I+ @4 i. Y( I* q* n7 n$ |                        PartsTable[5,Lines]:=Rows;
5 |6 f" {: w) u5 c                        PartsTable[6,Lines]:=j;
* V8 Y/ e/ y) b7 Z                end;
2 F, Z" Q% g) [  j" D& \: l2 [        next;
        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]);
        Machine.Name :=MachineName;
( a: u9 d) |9 E( t3 W* C        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
2 V1 U: s( `: ~( ~8 m4 Q) E        BufName :=sprint("BF",Rows);
  w* X" [! ~* @- G2 T4 V, D        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]);
- P( [% M# Q& H6 @, C                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
. H- |  z/ u) q+ f. [# f        Buf.ProcTime :=0;
4 D  D. s- @" P' E9 r        .MaterialFlow.Connector.connect(Buf,Machine);
9 K. w& u7 [& k( z4 y  d! qnext;
end;
/ I* H/ d# k) _& Z8 K) H0 {

五五

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

wudi

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