程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
6 r* A" b* g+ C. S! r( ~is
+ ], N1 H* @9 B( f6 w  s" U        i,j,Rows,Lines:integer;
4 d3 \/ }* K( H9 k( _+ R1 e4 j  L        MachineName,BufName:string;
) ]# w, i9 b0 A/ p& i        Machine,Buf:object;
do
7 N5 l' S  P, M7 ~  Q  x        if Number_Of_Machine/=D_From_To_Chart.YDim then
" g) q% A* f7 v9 p+ z% o# D                inspect messageBox("Number Wrong...,",50,13)
6 r+ ]0 h5 V9 k( }  Q; P+ F3 _7 c! C                when 16 then
/ V9 P" W& c0 g                        print "Yes";
! d5 D/ j7 I0 H  q: {% w                when 32 then
                        print "No";
                else
                        print "Cancel";
                end;
        EventController.stop;
end;
PartsTable.delete;
! V: L. J7 ?, r  `( D; Z+ Efor i:=1 to Number_Of_Machine loop
9 u) P( A% \% v; @        for j:=1 to Number_Of_Machine loop
                if j<i then
: t" f! t' s3 w/ |/ I                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
! O& z" p$ l; X: S                else
) Q6 M; Y$ }; x* }                        if j=i then
- e/ [. \: g! |. b9 V5 Q0 y+ }$ |                                D_From_To_Chart[j,i]:=0;
                        else
8 g( j+ N% R+ \4 b# V; o                                if D_From_To_Chart[j,i]<=0 then
; g- N" ?/ Q' l                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
  B" {- _/ ~% n: l3 P/ M$ j4 g                                end;
7 @+ n; D1 [; r, @7 P+ t; }- }                        end;
                end;
, E! q/ ~; `6 U9 z/ ?* b$ d# t        next;
next;
/ Z( D& f! a* Y6 t  M/ c) E
( w& W0 w4 }* M+ M9 m7 |end;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
4 u8 r/ z7 x7 b' N; s/ d        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
* m6 g9 }" E6 E. x) v/ {( E        MachineSequence[2,i]:=Rows;
8 T/ v9 T, N5 K6 v7 Z4 u, ]. J            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
8 w# k. R" J& B. o) }- w% `2 j                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
8 d! L0 Z& j( i' S% U                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
4 E3 {7 P+ r) m                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
" x7 @% S% D" ?- k1 F5 p  y2 ?# Q                end;
+ \1 o0 N6 u) E0 q' y0 F1 A        next;
- s3 b, T2 ~1 V  T+ }, 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]);
        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
  q( Z4 f9 l2 Q, l7 Y- R' I        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]);
  z( Q3 g$ u' h- X$ m  H1 R: r! T9 y                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
) Q  N. z, V+ F+ ^, Unext;
9 q& c% ~2 @: jend;
, G$ U" s6 v9 s( _

五五

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

wudi

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