Составление программы с использованием массива структур (короче record:))

[messiman]

Вот само задание:
Сформировать массив структур, содержащий сведения о 15 игрушек: указывается название игрушки (кукла, кубик, мяч, конструктор и т.д.), ее цена (в грн.) И возрастные границы детей (от 2 до 5 лет).
получить:
а) название игрушки, цена которой не превышает 40 гривен и предназначена для детей до 5 лет;
б) цена самого дорогого конструктора
в) цена самой дешевой игрушки и ее название.Упорядочить названия игрушек для детей до 7 лет.

ВОт за полчаса что-то набросал)) Не уверен, конечно, что правильно, но все-таки...
Program Igruushki;
uses crt;
const n=15;
type igrushki = record
nazvanie: string [20];
price: real;
granici: 2..5;
end;
var a:array [1..n] of igrushki;
i:byte;
Begin
clrscr;
for i:=1 to n do
with a[i] do
begin
writeln ('Vvedi nazvanie');
readln (nazvanie);
writeln ('Vvedi cenu');
readln (price);
writeln ('Vvedi vekovie ogranicheniya, ot 2 do 5');
readln (granici);
end;
for i:=1 to n do
with a[i] do
if (price<40) and (granici<5) then
writeln ( nazvanie,' ' ,price:4:2);
readln;
ялляляляляялялля (тут продолжение)
end.


Короче, вопросы возникли по-поводу возрастных ограничений - написано указывать от 2 до 5, а сортировать уже до 7, капец))
И насчет самого дорогого конструктора, как указать - конструктор это, или машинка, ведь нужно указать любое название((
Кто может помогите, сижу 3 часа мозги ломаю))