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

uses crt;
type igra=record
          nazv_e:string[20];
          stoim_t:10..10000;
          min_vozrast:1..4;
          max_vozrast:5..12;
          end;
const naz:array[1..5] of string[20]=('кубики','мяч','кукла','конструктор','лего');
      nmax=20;
Var f:file of igra;
    a:igra;
    i,n,w:byte;
Begin
clrscr;
Assign(f,'RGR3.dat');
rewrite(f);
repeat
write('Введите количество игрушек до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите сведения о ',n,' игрушках:');
For i:=1 to n do
 begin
  writeln('Игрушка ',i);
  with a do
   begin
    repeat
    writeln(' название ');
    writeln('  1-кубики 2-мяч 3-кукла 4-конструктор 5-лего');
    readln(w);
    until w in [1..5];
    nazv_e:=naz[w];
    repeat
    write(' стоимость в копейках от 10 до 10000: ');
    readln(stoim_t);
    until (stoim_t>=10)and(stoim_t<=10000);
    repeat
    write(' минимальный возраст от 1 до 4: ');
    readln(min_vozrast );
    until min_vozrast in [1..4];
    repeat
    write(' максимальный возраст от 5 до 12: ');
    readln(max_vozrast );
    until max_vozrast in [5..12];
    write(f,a);
   end;
 end;
close(f);
clrscr;
writeln('Список игрушек':33);
writeln('------------------------------------------------------');
writeln('|  Название | Стоимость, коп. | Мин.возр.| Макс.возр.|');
writeln('------------------------------------------------------');
reset(f);
while not eof(f) do
 begin
  read(f,a);
  with a do
   begin
    gotoXY(1,whereY);write('|',nazv_e);
    gotoXY(13,whereY);write('|',stoim_t:8);
    gotoXY(31,whereY);write('|',min_vozrast:6);
    gotoXY(42,whereY);write('|',max_vozrast:6);
    gotoXY(54,whereY);writeln('|');
   end;
 end;
writeln('------------------------------------------------------');
close(f);
write('Press Enter...');
readln;
writeln('Цены всех кубиков:');
reset(f);
w:=0;
while not eof(f) do
 begin
  read(f,a);
  if a.nazv_e='кубики' then
   begin
    w:=1;
    if a.stoim_t div 100<10 then write('0',a.stoim_t div 100,' руб. ')
    else write(a.stoim_t div 100,' руб. ');
    if a.stoim_t mod 100<10 then write('0',a.stoim_t mod 100,' коп.')
    else write(a.stoim_t mod 100,' коп.');
    writeln;
 end;
 end;
if w=0 then write('Кубиков нет!');
close(f);
readln
end.