Получить название игрушек, которые подходят как для 4-х лет, так и для 10-ти лет

uses crt;
type Tigr=record
          nam:string[20];
          vz1:byte;
          vz2:byte;
          end;
const fname='Assort';
var igr:Tigr;
    f:file of Tigr;
    k:byte;
begin
clrscr;
{Создание файла}
assign(f,fname);
rewrite(f);
writeln('Введите данные об игрушках, окончание ввода Esc');
repeat
with igr do
 begin
  write('Название: ');readln(nam);
  repeat
  write('Мин. возраст (1..10): ');readln(vz1);
  until vz1 in [1..10];
  repeat
  write('Макс. возраст (2..14): ');readln(vz2);
  until vz2 in [2..14]
 end;
write(f,igr);
until readkey=#27;
clrscr;
{Вывод файла на экран}
reset(f);
writeln('Полный список игрушек:':40);
writeln;
writeln('---------------------------------------');
writeln('|   Название   |Мин. возр.|Макс. возр.|');
writeln('---------------------------------------');
while not eof(f) do
 begin
  read(f,igr);
  with igr do
   begin
    gotoXY(1,whereY);write('| ',nam);
    gotoXY(16,whereY);write('|',vz1:5);
    gotoXY(27,whereY);write('|',vz2:6);
    gotoXY(39,whereY);writeln('|');
   end;
  end;
close(f);
writeln('---------------------------------------');
writeln('Нажмите Enter для продолжения');
readln;
{поиск игрушки для детей 4,10 лет}
writeln('Названия игрушек, которые подходят детям 4 и 10 лет');
reset(f);
k:=0;
while not eof(f)do
 begin
  read(f,igr);
  if (igr.vz1<=4)and(igr.vz2>=10) then
   begin
    k:=1;
    writeln(igr.nam);
   end;
 end;
close(f);
if k=0 then writeln('Игрушек для детей 4 и 10 лет нет');
writeln('Нажмите Enter для выхода');
readln
end.