程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
& [0 B: f+ ^8 @8 T& a3 h' U4 L        i,j,Rows,Lines:integer;
% s5 I8 g9 b9 ~, z4 T        MachineName,BufName:string;
        Machine,Buf:object;
do
' V5 {4 K4 K5 n! v        if Number_Of_Machine/=D_From_To_Chart.YDim then
1 ]- K8 Y4 y+ K& I5 M                inspect messageBox("Number Wrong...,",50,13)
2 s& y  @$ L1 r# Q3 b                when 16 then
7 i4 }3 F; `( T1 V                        print "Yes";
  s& _7 s4 M% }8 w                when 32 then
                        print "No";
% x" j! F4 I- j/ k" g                else
; Y, ~0 K0 v- Z7 S8 _- s2 Y                        print "Cancel";
                end;
        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
9 }0 y5 A0 z6 x; O* u                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
0 K5 Y; _' [$ e) n. i7 ]' Q                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
- ~3 i0 D) _& R6 R& U: z# g                        end;
+ z) G) G$ ]& Z. t                else
0 ~8 o  Y7 F" U. S                        if j=i then
                                D_From_To_Chart[j,i]:=0;
: Q0 ^# p" ?( @/ l/ y                        else
8 {3 G2 f; z* p* v, l                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
+ K" f  n  y& G                                end;
                        end;
                end;
        next;
; @: h* u- b. q) x. s  R) s1 jnext;

1 M. n' Z8 @) rend;
* S5 A4 n- o6 l/ d6 w
1 H+ T0 H: c+ d    Lines :=0;
        for i:1 to Number_Of_Machine loop
5 I0 f0 E' j) [0 `* M        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
' O9 e4 \8 \, [$ x            for j:1 to Number_Of_Machine loop
1 q+ b. `( q( C                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
* f3 s6 M5 Y7 H+ T/ ]0 e. o& E                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
- H, x2 J: v1 p; P: H& h                        PartsTable[6,Lines]:=j;
                end;
        next;
! S- X' N3 U$ Q/ O1 J+ X# o        MachineName :=sprint("M",Rows);
' K5 K1 W# H; h) x" ^        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]);
  Z# j9 `% B8 ?% w        Machine.Name :=MachineName;
7 _7 f' Q$ K- \: _6 N        Machine.ProcTime :=5;
4 d* B* t' {% J. P7 U% L( I        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
3 y# M, ~2 m& n- q4 L7 k        BufName :=sprint("BF",Rows);
3 F# C9 D! t+ s( A5 m6 S        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;
6 T: m* Z' p* _4 K; f& D* w        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
3 K% L# \3 V, [: U  X6 l# f7 _        .MaterialFlow.Connector.connect(Buf,Machine);
6 y2 `" W3 d1 k1 `1 K+ u$ jnext;
end;
8 r' c; n- A! Y

五五

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

wudi

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