程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
1 w9 A  b5 U  K5 u0 K3 Jis
        i,j,Rows,Lines:integer;
% A# d" W7 |. Q7 R, r" i4 f        MachineName,BufName:string;
) A- c& q+ `/ L9 J        Machine,Buf:object;
7 {3 j# U/ S2 T; [5 |( Ndo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
2 ?; ?" Y2 t" ~1 O/ H) x& L* u                inspect messageBox("Number Wrong...,",50,13)
) z& a# q8 x7 c+ m7 j' l9 X8 N                when 16 then
: V1 j  o0 o# l7 H                        print "Yes";
* S; k5 A1 K& \" v                when 32 then
0 v% M( `+ i3 m: N, T                        print "No";
% Z; A2 ?' I5 q                else
; ?# `! h' {* k, R; D/ J                        print "Cancel";
                end;
8 k9 y9 {# x4 [/ g: h        EventController.stop;
end;
6 F0 q; o8 }+ ^) M. d, KPartsTable.delete;
for i:=1 to Number_Of_Machine loop
8 K2 {3 a. M9 s8 Y+ M; _1 F5 z        for j:=1 to Number_Of_Machine loop
+ Q. q) N) f% Y& T/ J$ u) B/ V                if j<i then
( N5 G8 Y* b0 {; H$ r                        if D_From_To_Chart[j,i]<=0 then
& _2 C  f4 x( \# l4 e. A1 E                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
3 _1 T9 O! U0 k$ B" P( F7 D8 H0 J                        if j=i then
8 T3 S5 e/ e% [; F                                D_From_To_Chart[j,i]:=0;
                        else
! l, k; y6 e/ o' R* v5 Q& ~                                if D_From_To_Chart[j,i]<=0 then
$ K+ N8 W. h* A3 J! T8 n                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
  e$ U7 ?1 W! W) g3 x' H5 S3 m                end;
& [6 z* P. E( a* O( b" N# M, s        next;
) r2 `5 X% u- X3 ?next;
. ?! M. K. R6 ~' |8 N# s
end;
4 k: i1 _* v8 I( ?# j4 m
    Lines :=0;
        for i:1 to Number_Of_Machine loop
        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;
* Y7 ?8 q; F7 k2 `5 D" |# U+ }                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
6 m, y, r! ?( O9 c; q4 R                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
. }: d6 t. w3 I% b                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
- [! {1 d1 i9 B: e                        PartsTable[6,Lines]:=j;
                end;
        next;
        MachineName :=sprint("M",Rows);
4 S2 t$ f8 B8 L( ~5 J        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]);
* e" L6 ]4 I8 C& _4 \        Machine.Name :=MachineName;
, X+ j+ D% S) m; G        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
  ~1 B2 N4 M, Y$ \. i        Machine.ExitCtrl :=ref(Leave);
       
        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;
        Buf.Capacity :=5000;
2 A/ o" m9 j7 k- A        Buf.ProcTime :=0;
0 h/ S: W* v6 ?, {% ~        .MaterialFlow.Connector.connect(Buf,Machine);
  Z+ o* n, q) O) h( onext;
end;
: q: n* v, {: M

五五

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

wudi

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