Сформировать массив, содержащий сведения об игрушках: заглавие игрушки, цена, возрастные

Type
  ttoy=record
    naim:string[30];
    stoim:integer;
    age1,age2:integer;
  end;
 
var
  atoy:array[1..50] of ttoy;
  i,n:byte;
begin
  Write('Количество игрушек: ');
  Readln(n);
  for i:=1 to n do
  begin
    Writeln('Игрушка ',i);
    Write('Название: ');
    Readln(atoy[i].naim);
    Write('Цена: ');
    Readln(atoy[i].stoim);
    Write('Возрастные границы: ');
    Readln(atoy[i].age1,atoy[i].age2)
  end;
  Writeln('      Названье игрушки        Цена Возрастные границы');
  for i:=1 to n do
    Writeln(atoy[i].naim:30,atoy[i].stoim:9,atoy[i].age1:10,
      ' - ',atoy[i].age2)
end.