程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
$ I- b) E6 M1 E5 t, R2 Zis
8 R& X% D5 S8 ?; u7 s- X* ^        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
3 {1 [# V; T- X$ n$ s. k        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
$ D5 Z, n: u& U                when 16 then
3 v  v) ~2 O6 s9 H7 u                        print "Yes";
                when 32 then
% p1 ?- B; W( q$ s% d                        print "No";
                else
                        print "Cancel";
                end;
        EventController.stop;
end;
PartsTable.delete;
9 Z! L. n* e' M/ [  ]7 O) O( K) xfor i:=1 to Number_Of_Machine loop
$ u7 a1 b  B& Y+ L* R2 t        for j:=1 to Number_Of_Machine loop
0 n0 U) d; N: j% Q  S1 {                if j<i then
3 w+ `* I% i0 C9 J3 A  [7 @% B+ d2 Y                        if D_From_To_Chart[j,i]<=0 then
8 W$ R5 ^; G  r+ _                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
; e4 i1 d5 f6 E& W( w% f- [+ a1 a                else
9 P7 L* Q( G8 p4 H                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
5 u% ~- V9 P( b( f) q# j# U/ q                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
& ?1 u8 o, Z- V2 @/ t( o. T                                        EventController.stop;
/ c, C7 A, E& R* q                                end;
3 N4 D, j. x. s5 Y. q& ~+ z                        end;
                end;
; v* Q4 g4 F; j$ e9 _; O        next;
1 O$ E; f1 m5 s  g  e" h! {next;

end;
1 U  a+ `9 Y) j9 T- J" \, U
6 l9 m# a/ x" Y, o% w  d! q8 W    Lines :=0;
* |" x6 ^& |1 t        for i:1 to Number_Of_Machine loop
0 \# `, M6 w0 G( Z6 U: V: o3 h" J        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
1 W+ e' `$ G- h# h  r) x# x            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
. v$ Y  n6 M' @* p: k; w! i                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
) M6 a0 \) v4 {, |7 @3 p                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
, {* |) ]* E( [- h7 l4 ?                        PartsTable[3,Lines]:=sprint("Parts");
, D) P  f" Q) U$ p1 }/ a                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
        next;
        MachineName :=sprint("M",Rows);
. p7 q9 R4 X6 I0 R3 V        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]);
* }4 x- ^5 @: R7 E' B% O3 D        Machine.Name :=MachineName;
. a. w2 y9 S. d        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
9 `1 S' u- Q1 o( H) z       
        BufName :=sprint("BF",Rows);
# }: R& y- I# b( X6 T2 j7 D. a        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;
        Buf.Capacity :=5000;
) @/ j1 v9 Z+ Y; F( v$ N/ T; r3 |        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
) T; z( L" T, J. hnext;
end;

五五

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

wudi

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