程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
- ]' F% X$ l, {, }$ U' x# ~        i,j,Rows,Lines:integer;
6 F( D# F5 O+ Z5 G6 b8 J. q( o        MachineName,BufName:string;
        Machine,Buf:object;
4 E+ A3 @7 m( O( `5 Ddo
& {+ W( [( F. b0 B: G4 k* X* f, F        if Number_Of_Machine/=D_From_To_Chart.YDim then
% q% E: E" e1 f& h6 V' n3 M                inspect messageBox("Number Wrong...,",50,13)
: i9 a5 M) Y# J6 B1 o8 C5 k% l/ \. c                when 16 then
                        print "Yes";
5 ~+ Z2 \2 X7 `* Z. X1 Z( t                when 32 then
                        print "No";
                else
+ Y! P/ H& w! O2 Q& z& M, e' E# ~                        print "Cancel";
                end;
: u; K$ y4 }( I& h        EventController.stop;
3 ~8 D6 U) e; t" @# K; _3 Uend;
PartsTable.delete;
; @4 o& D4 q$ N5 b9 `for i:=1 to Number_Of_Machine loop
% o- o, X1 h" \  J+ s        for j:=1 to Number_Of_Machine loop
                if j<i then
# ^2 Z$ U2 r5 G% L: Q8 ^: g                        if D_From_To_Chart[j,i]<=0 then
# Y5 C, p& n+ ?% s) @% I% D  N                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
9 o/ r2 q+ m2 F2 Y3 |                else
8 j7 R# p' |5 o1 {, x6 j1 I                        if j=i then
2 n0 w/ S7 d& m) {" s9 k5 g# G                                D_From_To_Chart[j,i]:=0;
9 N* ?' p- l- d9 d, [; M                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
! Y  J4 I4 X# i5 ?* f4 R4 o                        end;
                end;
) z% H' @& g. _, D" q& |. w3 o" S4 D; B        next;
/ x+ r8 M6 q1 y0 P# tnext;

+ }  W1 R- M' T+ `3 O# m4 Dend;

. i0 Z' v. k! a/ T) p' B: |- x4 A    Lines :=0;
5 h' n4 d( l! d& T        for i:1 to Number_Of_Machine loop
0 Q' e- ^" p, }/ ^0 m7 P0 i        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
  k4 C& e. e* {/ b' \1 ?' d                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
2 t# q) A2 [9 n6 B, m- {0 |                        PartsTable[3,Lines]:=sprint("Parts");
% q* o  J! ^. M, f. ^# W% y( R# p                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
1 U3 e# y; C$ [8 t9 N2 L                end;
0 H  \3 H  O8 @6 C1 U! ?3 g  e        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]);
" u4 x" M8 B5 P. p4 f; E        Machine.Name :=MachineName;
8 M% {; Y/ a7 v2 U! W        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
4 C: ~3 F1 n: F       
' d% R9 C1 D# `" q0 l        BufName :=sprint("BF",Rows);
        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;
! V' L3 W( ^! k9 }2 V. `( X        Buf.Capacity :=5000;
2 s# w2 i9 w$ z+ E& U( I        Buf.ProcTime :=0;
8 y8 u' J! X( f$ {& C( R        .MaterialFlow.Connector.connect(Buf,Machine);
next;
) {( n8 d! M% Iend;
+ y- }: _3 k) @0 N% t$ C

五五

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

wudi

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