Расчётная работа. Помогите Опции

[abv]

Создать массив записей, содержащих сведения об игрушках в торговой базе.
- Название игрушки(кукла, конструктор, робот и т.п.)
-ее стоимость
- Возрастные граници ребёнка, для которого предназначена игрушка.
Предусмотреть выдачу сведений:
а) О цене самой дорогой игрушки;
б) Об игрушках цена которых не привышает заданную величину;
в) Название игрушек которые подходят детям от 4 до10 лет.

Вот такое непростое задание. Помогите плиз.

[Jahnerus]

Ну вобщем в продолжение темы...

Код

uses crt;
type
 item = record
   title: string[30];{название}
   price: real;{цена}
   age_1,age_2: byte;{возраст}
 end;
var
 i,n:byte;
 maxp:real;
 info: array[1 .. 255] of item;
begin
clrscr;
{Ввод данных производится с клавы}
write('Введите количество товаров ');
readln(n);
for i:=1 to n do begin
 with info[i] do begin
   writeln('Введите данные для ',i,'-ой/ей игрушки :');
   write('Hазвание: ');
   readln(title);
   write('Цена: ');
   readln(price);
   if price>maxp then maxp:=price;
   write('Возростные границы (через пробел): ');
   readln(age_1,age_2);
 end;
end;
clrscr;
writeln('Цена самой дорогой игрушки ',maxp:4:2);
write('Введите величину ограничивающую стоимость ');
readln(maxp);
for i:=1 to n do begin
 with info[i] do begin
   if price<maxp then begin
     writeln('Hазвание: ',title);
     writeln('Цена: ',price:4:2);
     writeln('Возростные границы: от ',age_1,' до ',age_2);
     writeln('Hажмите клавишу для вывода информации о следующей игрушке ');
     readkey;
   end;
 end;
end;
writeln('Игрушек с ценой меньшей указанной вами больше нет');
writeln('Следующие игрушки подходят детям в возрасте от 4 до 10 лет');
for i:=1 to n do begin
 with info[i] do begin
   if (age_1>3) and (age_2<11) then writeln(title);
 end;
end;
readln;
end.

Надеюсь что првильно понял задание :p2: