Получить сведения о названиях игрушек, стоимость которых не превосходит 4 грв, и которые подходят детям 5 лет

const
  n_toys=2;
type
  toy = record
  naim: string; //наименование
  stoim: integer; //цена
    age: record //рамки возраста
      ot,ddo: integer; //от .. до .. лет
    end;
end;
 
var
  a: array[0..n_toys] of toy; //массив записей
  i,n,m: integer; //цикл, возраст ребенка, желаемая стоимость
 
BEGIN
  write('введите возраст ребенка: ');
  readln(n);
  write('введите желаемую стоимость игрушки: ');
  readln(m);
  for i:=0 to n_toys 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;
  for i:=0 to n_toys 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 n_toys do
    if (n>=a[i].age.ot) and (n<=a[i].age.ddo) and (m>=a[i].stoim) then
      writeln(a[i].naim);
  readln;
END.