const
 n = 20; {количество игрушек}
type
 TItem = record
   title: string[30];  { название }
   price: real;  { цена }
   ages: byte;  { возраст }
 end;

var
 info: array[1 .. n] of TItem;

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.

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;
 s:string;
 f:text;
 er:integer;
begin
assign(f,'c:\data.txt');{c:\data.txt - путь к файлу с данными}
reset(f);
repeat
  n:=n+1;
  readln(f,info[i].title);
  readln(f,s);
  val(s,info[i].price,er);
  if info[i].price>maxp then maxp:=info[i].price;
  readln(f,s);
  val(s,info[i].age_1,er);
  readln(f,s);
  val(s,info[i].age_2,er);
until eof(f);
close(f);
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.

Паровоз
34.56
5
8
Самокат
90
7
14