Помогите пожалуйста исправить ошибку. Тема: Тип данных запись. Pascal

[quakenez]

program Lab_10_12;
type Toy = record
title: string;
year: integer;
price: integer;
end;
b:Toy;
i, n:integer;
begin

write('Введите кол-во игрушек');
readln(n);
for i:=1 to n do begin
writeln('Название игрушки:'); readln(b.title);
writeln('Цена:'); readln(b.price);
writeln('Возраст ребенка:'); readln(b.year);
end;
if (b.price<=4) and (b.year>=5) then
writeln(b.title)
end.

[digitalis]

Во-первых, так пишут только чукотские зулусы. Нормальные люди делают отступы и применяют тег CODE, чтобы читающий прочёл до конца, а не послал автора на 3 последние буквы латиницы. Это достигается предварительным чтением нескольких заданных в теме вопросов, а не просто тяп-ляп по клаве.
Мой телепатор протелепал вот чё:

program Lab_10_12;
type Toy = record
  title: string;
  year: integer;
  price: integer;
end;
b:array[1..100] of Toy;
i, n:integer;
begin
write('Введите кол-во игрушек');
readln(n);
for i:=1 to n do 
begin
   write('Название игрушки: '); readln(b[i].title);
   write('Цена: '); readln(b[i].price);
   write('Возраст ребенка: '); readln(b[i].year);
end;
for i:=1 to n do
  if (b[i].price <= 4) and (b[i].year >= 5) then  writeln(b[i].title)
end.

===============
и тишина....