程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
) J% n: @2 n& D0 }+ `        MachineName,BufName:string;
        Machine,Buf:object;
do
! c! V1 H& r: V6 ~3 U% f: |, [        if Number_Of_Machine/=D_From_To_Chart.YDim then
0 y- Y9 A+ F' _" F7 N6 ]                inspect messageBox("Number Wrong...,",50,13)
/ {  P+ H) G) W8 }% q                when 16 then
" Q9 J0 ?; F3 i1 M3 o" U                        print "Yes";
                when 32 then
                        print "No";
                else
) P) C6 i# f* J2 \' W# r# O                        print "Cancel";
                end;
( _' R3 ]! j. a" ~; K. U8 f        EventController.stop;
9 d' P8 C& x  N3 [end;
, F! `) j4 _7 o0 U  u2 xPartsTable.delete;
for i:=1 to Number_Of_Machine loop
+ V. b- s% N/ O7 J8 D        for j:=1 to Number_Of_Machine loop
; ^/ w% `# n& z3 Z" m1 F7 w                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
# d: f/ A9 X) s7 j                        end;
; i3 \1 F3 b7 }                else
' r+ t$ J9 \8 m) x                        if j=i then
                                D_From_To_Chart[j,i]:=0;
$ k5 e2 u; \) T9 J- h) L0 n                        else
) W9 \2 V3 J  ]8 H  h                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
/ U/ U" J  J* R                                        EventController.stop;
% v; a0 k  z1 M7 L0 L5 n$ V5 N                                end;
) L6 ?9 x/ j, D  o" r                        end;
) H4 e5 J- e7 @4 W                end;
        next;
# h' R  \* C5 N; Wnext;

: `# V7 |2 l& F+ f  Q5 @end;

9 P4 k  _8 J  i& ^. s" o    Lines :=0;
        for i:1 to Number_Of_Machine loop
& r! r0 F3 B( P0 `        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
1 ~3 L8 H; q6 j- U4 W0 W            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
( y; f! D" T8 z+ p" R; j                            Lines :=Lines+1;
0 u$ |7 D4 p: n7 }, T                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
6 f: n% s6 r& a9 V                        PartsTable[5,Lines]:=Rows;
# v/ _; Z- G7 E9 W2 K                        PartsTable[6,Lines]:=j;
                end;
        next;
        MachineName :=sprint("M",Rows);
, A. ]( _2 U( P3 n. n  ]1 U        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;
; G# K% b9 S8 }: y9 N! t        Machine.ProcTime :=5;
. C8 y; o$ L' D7 u2 D5 c        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
  @1 G# d4 F8 s6 f8 z# b       
; j+ a  s' q$ E/ l. R  \/ H: C        BufName :=sprint("BF",Rows);
( i- P5 J  D. j# q6 c        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;
+ G# H; ^- K( l5 m  X/ F7 s$ Q        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
9 b) v% X( T: ?        .MaterialFlow.Connector.connect(Buf,Machine);
6 N* `9 P6 {! Knext;
end;
) R% D0 T' B' E6 H+ D

五五

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

wudi

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