Дан файл assort содержащий сведения об игрушках: указывает название игрушки, ее стоимость в рублях и возрастные границы (например игрушка может предназначаться от 2 до 5 лет):а) получить название игрушек цена которых не превышает 140 руб и подходит детям до 5 лет;б) определить стоимость самого дорогого конструктора;в) получить название самой дешевой игрушки — Pascal(Паскаль)

uses crt;
const n=10;
type toy=record
      name:string;
      price:integer;
      age:integer;
      t:boolean;
     end;
var x:array[1..100] of toy;
    i,k,z:integer;
    max,min:integer;
    naz:string;
begin
ClrScr;
Writeln('Введите значения: ');
for i:=1 to n do
 with x[i] do
  begin
   Write(' Name: ');
   Readln(name);
   Write('(1-конструктор, 2-игрушка): ');
   Readln(z);
    if z=1 then
     t:=true
    else
     if z=2 then
      t:=false;
   Write(' Price: ');
   Readln(price);
   Write(' Age: ');
   Readln(age);
  end;
Writeln;
Writeln('Table: ');
Writeln('----------------------------');
Writeln('|  Name  |  Price  |  Age  |');
Writeln('----------------------------');
 for i:=1 to n do
  Writeln('|',x[i].name:8,'|',x[i].price:9,'|',x[i].age:7,'|');
Writeln('----------------------------');
Writeln('Игрушки меньше 140 рублей и подходят детям до 5 лет: ');
Writeln('----------');
Writeln('|  Name  |');
Writeln('----------');
for i:=1 to n do
 if (x[i].age in [1..5]) and (x[i].price<140) then
  Writeln('|',x[i].name:8,'|');
Writeln('----------');
max:=-1;
 for i:=1 to n do
  if (x[i].price>max) and (x[i].t=true) then
   max:=x[i].price;
Writeln('Цена самого дорогого конструктора: ',max,' rub.');
min:=-1;
for i:=1 to n do
 if (x[i].price<min) and (x[i].t=false) then
  begin
   min:=x[i].price;
   naz:=x[i].name;
  end;
Writeln('Название самой дешевой игрушки: ',x[i].name);
Readln;
end.