Вывести названия игрушек, которые подходят детям N лет, и стоимость которых не превышает M.

const f='file.text';
type
toy = record
naim: string; //наименование
stoim: integer; //цена
age: record //рамки возраста
ot,ddo: integer; //от .. до .. лет
end;
end;
 
var
a: array[0..14] of toy; //массив записей
i,n,m: integer //цикл, возраст ребенка, желаемая стоимость
 
BEGIN
write('введите возраст ребенка: ');
readln(n);
write('введите желаемую стоимость игрушки: ');
readln(m);
for i:=0 to 14 do
begin
write('наименование: ');
readln(a[i].naim);
write('цена: ');
readln(a[i].stoim;
write('минимальный возраст: ');
readln(a[i].age.ot);
write('максимальный возраст: ');
readln(a[i].age.ddo);
end;
assign(output,f);
rewrite(output);
for i:=0 to 14 do
begin
write('наименование: ');
writeln(a[i].naim);
write('цена: ');
writeln(a[i].stoim);
write('минимальный возраст: ');
writeln(a[i].age.ot);
write('максимальный возраст: ');
writeln(a[i].age.ddo);
writeln;
end;
writeln('подходящие игрушки:');
for i:=0 to 14 do
if (n>=a[i].age.ot) and (n<=a[i].age.ddo) and (m>=a[i].stoim) then
writeln(a[i].naim);
close(output);
END.

program igrushki;
uses crt;
type
   zap=record
         name:string[30];
         zena:integer;
         minvzr:byte;
         maxvzr:byte;
       end;
var
   f:file of zap;
   k:zap;
   sym:char;
   v:byte;
   s,n,i,z:integer;
begin
clrscr;
 assign(f,'BDIGR.HLP');
 rewrite(f);
  repeat
    write('Naimenovanie: ');
    readln(k.name);
    write('Zena:         ');
    readln(k.zena);
    write('Min vozrast:  ');
    readln(k.minvzr);
    write('Max vozrast:  ');
    readln(k.maxvzr);
    write(f,k);
    n:=n+1;
    writeln;
    writeln('(EXIT - "N", Vvesti ezhe - "Enter")');  {Нажать "N" для завершения ввода записей, "Enter" для продолжения ввода записей}
    read(sym);
  until (sym='n');
  seek(f,0);
  repeat
     writeln;
     write('Vvedite vozrast rebenka ');
     readln(v);
     write('Vvedite zenu ');
     readln(z);
     s:=0;
     for i:=1 to n do
         begin
            seek(f,i-1);
            read(f,k);
            if (z >= k.zena) and (v>=k.minvzr) and (v <= k.maxvzr) then
              begin
               writeln('-----------------------------');
               writeln(k.name);
               s:=s+1;
              end
         end;
     if s > 0 then
       begin
          writeln('-----------------------------');
          write('(EXIT - "N", POISK - "Enter") '); {Нажать "N" для завершения поиска, "Enter" для продолжения поиска}
          read(sym);
       end
     else begin
            writeln;
            writeln('(Net takih igrushek)');
            writeln;
          end;
     writeln;
     write('(EXIT - "N", POISK - "Enter")');  {Нажать "N" для завершения поиска, "Enter" для продолжения поиска}
     read(sym);
  until (sym='n');
 close(f);
readln;
end.