Определить, для детей какого возраста предназначены кубики

uses crt;
const nmax=20;
      line='---------------------------------------------------------';
      shap='|       Название       | Стоимость | Возрастные границы |';
 
type toy=record
     name: string[20];
     zena: real;
     agen: byte;
     agev: byte;
     end;
     
var f: file of toy;
    z: toy;
    i,n,k,vv,nv: byte;
    srz: real;
 
begin
 srz:=0;
assign(f,'D:\toy.dta');
rewrite(f);
repeat
write('Количество записей, не более ',nmax,', n='); readln(n);
until n in [1..nmax];
writeln('Введите данные об игрушках: ');
for i:=1 to n do
    with z do
         begin
         write('Наименование: '); readln(name);
         write('Цена: '); readln(zena);
         writeln('Возрастные границы (в строку через пробел): ');
         readln(agen,agev);
         write(f,z);
         end;
reset(f);
clrscr;
writeln(line);
writeln(shap);
writeln(line);
while not (eof(f)) do
      begin
      read(f,z);
      with z do
           begin
           writeln('|',name:21,'|':2,zena:9:1,'|':3,agen:7,' ... ',agev:2,'|':7);
           if name='Кубики' then
              begin
              inc(k);
              srz:=srz+zena;
              if k=1 then
                 begin
                 nv:=agen;
                 vv:=agev;
                 end else
                 begin
                 if nv<agen then nv:=agen;
                 if vv>agev then vv:=agev;
                 end;
              end;
           end;
      end;
close(f);
writeln(line);
if k=0 then writeln ('Нет записей о кубиках') else
   begin
   writeln('Кубики предназначены для дитей в возрасте от ',nv,' до ',vv);
   writeln('Средняя цена кубиков ',srz/k:0:2);
   end;
Readln;
end.