Получить названия игрушек, цена которых не превышает 4 руб. и которые подходят детям 5 лет

type
    igr=record
              name:string[100];
              cena:real;
              nv,kv:byte;
              end;
    fill=file of igr;
var f:fill;
    i,k,w:integer;
    a:igr;
 
procedure soz(var f:fill);
begin
assign(f,'igr.dat');
rewrite(f);
write('Kol-vo igryshek= '); readln(k);
for i:=1 to k do
    begin
    write('Name= ');readln(a.name);
    write('Cena(0.00)= ');readln(a.cena);
    write('Nat vozrast i kon vozrast igr= ');readln(a.nv,a.kv);
    write(f,a);
    end;
close(f);
end;
 
procedure pro(var f:fill);
begin
assign(f,'igr.dat');
reset(f);
while not eof(f) do
      begin
      read(f,a);
      with a do
           writeln(name,' ',cena,' p. ',nv,' - ',kv);
      end;
close(f);
end;
procedure n4d5(var f:fill);
begin
assign(f,'igr.dat');
reset(f);
while not eof(f) do
      begin
      read(f,a);
      if (a.cena<4) and (a.nv<=5) and (a.kv>=5) then writeln(' ',a.name);
      end;
readln;
close(f);
end;
procedure dor(var f:fill);
var max:real;
begin
assign(f,'igr.dat');
reset(f);
max:=0;
while not eof(f) do
      begin
      read(f,a);
      if a.cena>max then max:=a.cena;
      end;
reset(f);
while not eof(f) do
      begin
      read(f,a);
      if a.cena>=max-1 then writeln(' ',a.name);
      end;
readln;
close(f);
end;
procedure let(var f:fill);
begin
assign(f,'igr.dat');
reset(f);
while not eof(f) do
      begin
      read(f,a);
      if (a.nv<=4) and (a.kv>=10) then write(' ',a.name);
      end;
close(f);
readln
end;
begin
w:=10;
while w<>0 do
      begin
      writeln('1- soz');
      writeln('2- prosmotr');
      writeln('3- cena<4 detim 5 ');
      writeln('4- dor igr ');
      writeln('5- 4 -10 let ');
      writeln('0- Vixod');
      readln(w);
      case w of
           1:soz(f);
           2:pro(f);
           3:n4d5(f);
           4:dor(f);
           5:let(f);
           end;
      end;
end.