程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
! V( j8 U* K- V8 P! tis
( n% ]+ Q( N  g% D* q/ l0 ~        i,j,Rows,Lines:integer;
, y2 z% T3 K) v# W        MachineName,BufName:string;
        Machine,Buf:object;
$ Z. h$ P4 d; _( u5 ~do
2 {$ s; \/ b, V1 Q9 }0 m        if Number_Of_Machine/=D_From_To_Chart.YDim then
/ s: Z. P) K$ d8 G                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
$ ~; k8 ~* A' c  S! l                        print "Yes";
2 y; B) Y2 Q( ]0 H, |                when 32 then
                        print "No";
. p# s2 ^. O: ?% u( H6 y                else
/ `5 D# \7 K) b/ ^/ y                        print "Cancel";
                end;
4 s/ ~) q6 ?2 j" l1 V        EventController.stop;
! g" W( d5 L3 Y8 a1 ^1 \end;
PartsTable.delete;
3 a2 \4 l& U: ffor i:=1 to Number_Of_Machine loop
2 j+ i8 y" B2 M* g* x7 Y! W" Y$ b        for j:=1 to Number_Of_Machine loop
" p# V1 ~2 b4 H! v, ~# |' m7 o                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
: U0 y; r2 E) J                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
4 `2 h) b5 V# t                        if j=i then
                                D_From_To_Chart[j,i]:=0;
. t, x# Q9 |! \; O5 I' X                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
2 L0 N. j1 z. ?8 F7 V& W                        end;
                end;
        next;
6 h4 q1 u* n* H$ R4 X- Wnext;
5 w8 U- Y% ]& B; ^
7 H5 a4 m6 O. w5 u0 Wend;

( y' D/ k, c3 C- L, T+ A    Lines :=0;
        for i:1 to Number_Of_Machine loop
! }4 E, V3 V+ G& z( R        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
* D! t. i: S6 v# \9 n& L' N3 P        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
& j! o2 A8 J: D. c8 Q                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
4 E  L) B8 n0 `0 |% K) K                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
6 Q& \, D. _4 D, q9 m                        PartsTable[6,Lines]:=j;
: D4 N9 \! ~; i# J1 i  m                end;
        next;
+ n/ h9 U& U2 |9 g7 m2 U) }        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]);
( p% G/ s+ u& E  _+ a" D/ W        Machine.Name :=MachineName;
/ f' Q% ~, H* Z: B        Machine.ProcTime :=5;
4 `4 ~% T2 G; u3 M+ _. b- B        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
, ]1 B; L7 q8 k# l) Y) z' [       
6 q1 K# x: G: Z( W8 J. y$ b        BufName :=sprint("BF",Rows);
* F: ^- T2 ^" S* b1 s% U  T        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]);
8 ]( C% z7 `0 y; u/ q  r                 Buf.Name :=BufName;
" g$ s. n6 w* Z& e6 y        Buf.Capacity :=5000;
/ V- o, G! g! j& k7 }' V( C1 \) d        Buf.ProcTime :=0;
4 _  m' {; Z! x1 j6 _7 V        .MaterialFlow.Connector.connect(Buf,Machine);
; _* d; R, ?& t- \# u7 O* unext;
end;
" L1 O; y; B+ s

五五

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

wudi

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