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

const f='file.txt';
type
toy = record
naim: string; 
stoim: integer; 
age: record 
ot,ddo: integer; 
end;
end;
 
var
a: array[0..2] of toy; 
i,n,m: integer;
 
BEGIN
write('vozrast: ');
readln(n);
write('zelstoim: ');
readln(m);
for i:=0 to 2 do
begin
write('naimen: ');
readln(a[i].naim);
write('cena: ');
readln(a[i].stoim);
write('minvozr: ');
readln(a[i].age.ot);
write('maxvozr: ');
readln(a[i].age.ddo);
end;
assign(output,f);
rewrite(output);
for i:=0 to 2 do
begin
write('naim: ');
writeln(a[i].naim);
write('cena: ');
writeln(a[i].stoim);
write('minvozr: ');
writeln(a[i].age.ot);
write('maxvozr: ');
writeln(a[i].age.ddo);
writeln;
end;
writeln('podxodigr:');
for i:=0 to 2 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.

const s='file.txt';
type
toy = record
naim: string;
stoim: integer;
age: record
ot,ddo: integer;
end;
end;
 
var
a: array[0..2] of toy;
i,n,m: integer;
f: text;
 
BEGIN
 write('vozrast: ');
 readln(n);
 write('zelstoim: ');
 readln(m);
 assign(f,s);
 reset(f);
 while not eof(f) do
  for i:=0 to 2 do
   begin
    readln(f, a[i].naim);
    readln(f, a[i].stoim);
    readln(f, a[i].age.ot);
    readln(f, a[i].age.ddo);
   end;
 close(f);
 for i:=0 to 2 do
  if (a[i].stoim<=m) and (a[i].age.ot<=n) and (a[i].age.ddo>=n)
   then writeln(a[i].naim);
 readln;
end.

const s='file.txt';
type
toy = record
naim: string;
stoim: integer;
age: record
ot,ddo: integer;
end;
end;
 
var
a: array[0..2] of toy;
i,n,m: integer;
f: text;
 
BEGIN
 write('vozrast: ');
 readln(n);
 write('zelstoim: ');
 readln(m);
 assign(f,s);
 reset(f);
 while not eof(f) do
  for i:=0 to 2 do
   begin
    readln(f, a[i].naim);
    readln(f, a[i].stoim);
    readln(f, a[i].age.ot);
    readln(f, a[i].age.ddo);
   end;
 close(f);
 for i:=0 to 2 do
  if (a[i].stoim<=m) and (a[i].age.ot<=n) and (a[i].age.ddo>=n)
   then writeln(a[i].naim);
 readln;
end.

Program games;
Uses crt;
label 10;
type spisok=record
     nazvan:string;
     stoim:string;
     vozvrast:integer;
     end;
F= file of spisok;
Var a:f;
    i,z:integer;
    s:real;
Procedure Sozd (var a:f);
Var i,j:integer;
    zk:spisok;
begin
rewrite (a);
j:=1;
 while j<>0 do
          begin
          write ('vvedite nazvanie igrushki ');
          readln (zk.nazvan);
          write ('Vvedite stoimost ');
          readln (zk.stoim);
          write ('vvedite vozvrast ');
          Readln (zk.vozvrast);
          write (a,zk);
          writeln ('Esli konec zapisi vvedite 0 ');
          readln (j);
          end;
close (a);
end;
Procedure vyvod (var a:f);
Var i:integer;
    zk:spisok;
begin
reset (a);
 writeln ('=================================');
 writeln ('|nazvanie | stoimost | vozvrast |');
 writeln ('=================================');
  while not eof(a) do
   begin
    read (a,zk);
    write ('|',zk.nazvan:6,'|');
    write ('|',zk.stoim:9,'|');
    write ('|',zk.vozvrast:6,'|');
    writeln;
    writeln ('-------------------------------');
   end;
close (a);
end;
Procedure poisk (var a:f);
var i:integer;
    zk:spisok;
    n:integer;
begin
reset (a);
 writeln ('Vvedite vozvrast ');
 readln (n);
 writeln ('spisok igrushek ');
 writeln ('=================================');
 writeln ('|nazvanie | stoimost | vozvrast |');
 writeln ('=================================');
 while not eof(a) do
 begin
  read (a,zk);
  if zk.vozvrast=n then
  begin
    write ('|',zk.nazvan:6,'|');
    write ('|',zk.stoim:9,'|');
    write ('|',zk.vozvrast:6,'|');
    writeln;
    writeln ('-------------------------------');
  end;
 end;
close(a);
end;         
begin
clrscr;
10:
assign (a,'fff'); {ТУТ СОЗДАЕТСЯ САМ ФАЙЛ!МОЖЕТЕ УКАЗАТЬ ПУТЬ ГДЕ ХОТИТЕ ЕГО РАЗМЕЩАТЬ}
writeln ('       MEHIO      ');
writeln ('1:cozdanie ');
writeln ('2:vyvod ');
writeln ('3:poisk ');
writeln ('4:vyxod ');
readln (z);
 case z of
  1:sozd(a);
  2:vyvod (a);
  3:poisk (a);
  4:exit;
  end; goto 10;
readln
end.