Здравствуйте, Комаров Антон Сергеевич!
Вот решение то ли задания №1, то ли №2, запутали Вы нас изрядно. Короче с типизированными файлами.
Задание №3 предлагаю сделать так.
1.Создать текстовый файл с нужными данными, куда в строку через пробел, или запятую вписать данные по каждому наименованию игрушки.Файл либо писать латинскими буквами, либо конвертировать из Win в Dos.
2.Считать данные программно в записи.
3.Обработать их по условию.
4.Вывести в виде таблицы в новый текстовый файл.
Мне кажется это логичным. Если Вас это устроит, я напишу Вам программу, либо приведите четкое условие задания №3.

Приложение:
uses crt;
type Tigr=record
nam:string[20];
stm:word;
kol:word;
vz1:byte;
vz2:byte;
end;
var igr:Tigr;{переменная типа записи для ввоода и вывода информации}
f,g:file of Tigr;{2 типизированных файла записей}
X:word;{макс.цена}
A,B:byte;{нижний и верхний возрастные граеицы}
begin
clrscr;
{Sozdanie faila}
assign(f,'igr1.dat');
rewrite(f);
repeat
with igr do
begin
write('Nazvanie: ');readln(nam);
write('Cena: ');readln(stm);
write('Kolichestvo: ');readln(kol);
write('Min vozrast: ');readln(vz1);
write('Max vozrast: ');readln(vz2);
end;
write(f,igr);{записываем в файл}
until readkey=#27;{ожидем нажатия клавиши, если Esc, прекращаем ввод}
clrscr;{очистим экран от ввода}
{Vyvod faila na ekran}
reset(f);
writeln('Polnyj spisok igrushek:':40);
writeln;
writeln('----------------------------------------------------------');
writeln('| Nazvanie | Cena | Kolichestvo | Niz.voz | Ver.voz |');
writeln('-----------------------------------------------------------');
while not eof(f) do
begin
read(f,igr);
with igr do
begin
gotoXY(1,whereY);write('| ',nam);
gotoXY(16,whereY);write('| ',stm);
gotoXY(25,whereY);write('| ',kol);
gotoXY(39,whereY);write('| ',vz1);
gotoXY(49,whereY);write('| ',vz2);
gotoXY(59,whereY);write('|');
end;
writeln;
end;
readln;
close(f);{файл полностью прочитан, закроем его}
{Sozdanie faila po usloviyu}
clrscr;
reset(f);{снова откроем}
assign(g,'igr2.dat');{новый файл для записи}
rewrite(g);
write('Stoimost igrushki: ');readln(X);{вводим данные для запроса}
repeat
write('Niznij vozrastnoj predel: ');readln(A);
write('Verhnij vozrastnoj predel: ');readln(B);
until (A>0)and(B>0)and(B>A);
while not eof(f)do
begin
read(f,igr); {читаем первый файл}
if (igr.stm<=X)and(igr.vz1<=A)and(igr.vz2>=B){если условия подходят}
then write(g,igr);{записываем в новый файл}
end;
{Vvyvod dannyh na ekran}
reset(g);{открываем для чтения новый файл}
writeln('Spisok igrushek po zaprosu:':40);
writeln;
writeln('----------------------------------------------------------');
writeln('| Nazvanie | Cena | Kolichestvo | Niz.voz | Ver.voz |');
writeln('-----------------------------------------------------------');
while not eof(g) do
begin
read(g,igr);
with igr do
begin
gotoXY(1,whereY);write('| ',nam);
gotoXY(16,whereY);write('| ',stm);
gotoXY(25,whereY);write('| ',kol);
gotoXY(39,whereY);write('| ',vz1);
gotoXY(49,whereY);write('| ',vz2);
gotoXY(59,whereY);write('|');
end;
writeln;
end;
close(f);{закрываем оба файла}
close(g);
readln
end.