Массив структур - record. Turbo Pascal!

[realhernya]

Сформировать массив структур, содержащий сведения о 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;

...................................


И как упорядочить до 7 лет, если границы 2-5 ? 0_о

[Serge_Bliznykov]

код ваш не смотрел ещё. но хочу дать совет - поищите аналогичные темы. Если мне не изменяет память, подобные задачи уже на форуме были!