程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
, J! q/ J7 p: Q/ N/ ?# e( his
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
+ [* d- _3 J$ T6 L        Machine,Buf:object;
* ?1 D' r. r/ ]4 O0 Ldo
: q% t: E6 i2 `: H; f; e        if Number_Of_Machine/=D_From_To_Chart.YDim then
' Y+ @5 ~3 T7 C$ k- L9 j8 z                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
) \: b) e2 Z. i$ @9 Q, T9 }                when 32 then
                        print "No";
& p4 m8 B9 m: f: ^+ v' R                else
                        print "Cancel";
                end;
        EventController.stop;
; E/ ?9 A1 j8 z. k+ l) cend;
' J: Z+ l1 j- ?2 C7 {PartsTable.delete;
# v; p- n" F; g; @% zfor i:=1 to Number_Of_Machine loop
) {; \7 z& E5 p5 Q9 d! N& R        for j:=1 to Number_Of_Machine loop
+ U, q8 n! ^$ Y                if j<i then
) r5 x) U! V( G  D4 Q: D5 _: T                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
) `6 s" \- t+ ?5 g$ ]                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
+ p/ T: U5 n; T. ~' k( s, t% G                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
2 X/ \! }& D3 W1 E0 R                                end;
                        end;
                end;
        next;
; S- Z. E% l6 ~" \next;

0 H! z2 t( p0 V9 A! Aend;

$ P4 p9 k5 Z4 f, P  {! c    Lines :=0;
; s7 w$ A" {0 j0 ^        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
, g% B" y' M: I+ \1 ?0 n            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
3 v( S3 r" E9 F) h3 _) @: {3 |                            Lines :=Lines+1;
6 r( {% D+ z& ~5 Z! H( w5 U, I                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
# ~+ \( H) w& n1 S+ f: I                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
/ |( \: b8 E; q                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
: ~3 u3 J) }  ~: n                        PartsTable[6,Lines]:=j;
                end;
        next;
        MachineName :=sprint("M",Rows);
) Y% y8 R  Z$ \( K6 `; s        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);
2 {7 Q% b1 {( S" f& S        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
' Q3 f( j- N) f4 [9 `; g        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;
) y9 F& X8 u% i9 s* m5 L5 g) a        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
7 L. b4 ]- Y0 Q4 A% B) u: ?' l. O9 O        .MaterialFlow.Connector.connect(Buf,Machine);
$ J; N7 N9 m; t- Wnext;
end;
9 K8 h  U8 u7 }

五五

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

wudi

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