Получить название самой дорогой игрушки для детей до четырех лет

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