Uses crt;
Type
item = record
     title: string; {название}
     price:real; {цена}
     age_1,age_2:byte;{возраст}
end;
Var
i,n:byte;
maxp:real;
info: array[1..100] of item;
s:string;
f:text;
er,q,w,eq:integer;
begin
clrscr;
assign (f,'c:\data.txt');
reset(f);
i:=0;
n:=0;
repeat
  inc(i);
  inc(n);
  readln (s,info[i].title);
   Write('Название ',info[i].title);
  readln(f,s);
  val(s,info[i].price,q);
  if info[i].price>maxp then maxp:=info[i].price;
  readln (f,s);
  val(s,info[i].age_1,w);
  readln (f,s);
  val(s,info[i].age_2,eq);
  until eof(f);
  close(f);
  clrscr;
  writeln ('Цена Самой дорогой игрушки ',maxp:4:2);
  For i:=1 to n do begin
  with info[i] do begin

      writeln ('Цена ',info[i].price:4:2);
      writeln ('Возрастные границы: От ', info[i].age_1,' до ',info[i].age_2);
      writeln ('нажмите клавишу для вывода ин-фы о след. игрушке');
      readkey;
      end;
      end;
      end.