Типизированные файлы: сведения об игрушках

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]=('kybiki','mach','kykla','konstruktor','lego');
nmax=20;
Var f:file of igra;
a:igra;
i,n,w:byte;
Begin
clrscr;
Assign(f,'RGR3.dat');
rewrite(f);
repeat
write('Vvedite kolichestvo igruchek do ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Vvedite svedeniya o ',n,' igruchkax:');
For i:=1 to n do
begin
writeln('igruchka ',i);
with a do
begin
repeat
writeln(' nazvanie ');
writeln(' 1-kybiki 2-mach 3-kykla 4-konstruktor 5-lego');
readln(w);
until w in [1..5];
nazv_e:=naz[w];
repeat
write(' stoimost v kopeykax ot 10 do 10000: ');
readln(stoim_t);
until (stoim_t>=10)and(stoim_t<=10000);
repeat
write(' minimalny vozrast ot 1 do 4: ');
readln(min_vozrast );
until min_vozrast in [1..4];
repeat
write(' maximalny vozrast ot 5 do 12: ');
readln(max_vozrast );
until max_vozrast in [5..12];
write(f,a);
end;
end;
close(f);
clrscr;
writeln('Spisok igruchek':33);
writeln('------------------------------------------------------');
writeln('| Nazvanie | Stoimost, kop. | Min.vozr.| Max.vozr.|');
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('Ceny vsex kybikov:');
reset(f);
w:=0;
while not eof(f) do
begin
read(f,a);
if a.nazv_e='kybiki' then
begin
w:=1;
if a.stoim_t div 100<10 then write('0',a.stoim_t div 100,' ryb. ')
else write(a.stoim_t div 100,' ryb. ');
if a.stoim_t mod 100<10 then write('0',a.stoim_t mod 100,' kop.')
else write(a.stoim_t mod 100,' kop.');
writeln;
end;
end;
if w=0 then write('Kybikov net!');
close(f);
readln
end.

writeln(' nazvanie ');
readln(w);
nazv_e:=w;