из списка магазина игрушек, выбрать названия наиболее дорогих игрушек

[RUSLAN13]

задание: составить программу решения задачи. Реализовать с конкретными исходными данными.
дан файл f, содержащий сведения об игрушках: указывается название игрушки (например, кукла, кубики, мяч, конструктор и т.д.), её стоимость в копейках и возрастные границы детей, для которых игрушка предназначена (например, для детей от двух до пяти лет). Получить сведения:
названия наиболее дорогих игрушек (цена которой отличается от цены самой дорогой игрушки не более чем на 1 руб.)

вот создание файла:(здесь всё правильно) Program RGR3_vspom;
type igra=record
nazv_e:string[20];
stoim_t:0..10000;
min_vozrast:0..4;
max_vozrast:5..12;end;
Var f:file of igra;a:igra;i,n:byte;
Begin Assign(f,'H:/RGR3.dat');
rewrite(f);
write('vvod n=');readln(n);
For i:=1 to n do begin
write('vvod nazv_e=');readln(a.nazv_e);
write('vvod stoim_t=');readln(a.stoim_t);
write('vvod min_vozrast=');readln(a.min_vozrast );
write('vvod max_vozrast=');readln(a.max_vozrast );
write(f,a);end;
close(f);
end.

вот основная программа(вот здесь что-то неправильно):

Program RGR3_osnov;
type igra=record
nazv_e:string[20];
stoim_t:0..10000;
min_vozrast:0..4;
max_vozrast:5..12;end;
Var f:file of igra;a:igra;max:0..10000;
Begin assign(f,'H:/RGR3.dat');Reset(f);
writeln('spisok_samyh_dorogih_igrus hek');
while not EOF(f) do begin
read(f,a);a.stoim_t:=max;
If a.stoim_t>max then a.stoim_t:=max;
If (max-a.stoim_t)<=100 then writeln(a.nazv_e);
end;
End.

[pomoshnic]

Попробуй вот такой

Program RGR3_osnov;
type igra=record
nazv_e:string[20];
stoim_t:0..10000;
min_vozrast:0..4;
max_vozrast:5..12;end;
Var f:file of igra;a:igra;max:0..10000;
Begin assign(f,H:\'RGR3.dat');Reset(f);
writeln('spisok_samyh_dorogih_igrushek');
while not EOF(f) do begin
read(f,a);max:=a.stoim_t;
If a.stoim_t>max then a.stoim_t:=max;
If (max-a.stoim_t)<=100 then writeln(a.nazv_e);
end;
readln
End.

[RUSLAN13]

не работает. теперь просто просит что-нить ввести и все

[Sm1Le]

Трасировкой что ? - Где ошибка ?

[RUSLAN13]

в том то и дело что ошибки нет... просто он выводит абсолютно все названия игрушек