Сформирована переменная Assortim, содержащая сведения об игрушках:

program lab;
 
uses crt;
 
Type
  Igr = record { Запись описывающая игрушки }
    title: string[20]; { Название игрушки }
    auname: string[20]; { Возраст }
    ccc: word; { Стоимость }
  end;
 
Var
  DataFile: TextFile;
  tmp: Integer;
  a: Igr;
 
begin
  AssignFile(DataFile, 'Data.txt');
  ReWrite(DataFile);
  writeln('Najmite ''esc'' dlia vihoda');
  repeat { ввод данных }
    writeln('nazvanie:');
    readln(a.title);
    writeln(DataFile, a.title);
    writeln(' vozrast:');
    readln(a.auname);
    writeln(DataFile, a.auname);
    writeln('cena:');
    readln(a.ccc);
    writeln(DataFile, a.ccc);
    { пишем структуру в файл }
  until readkey=#27; {пока не нажата клавиша esc (её код = 27)}
  CloseFile(DataFile); { закрываем файл, чтобы сохранить изменения }
  tmp := -100;
  reset(DataFile); { открываем файл для чтения }
  while not eof(DataFile) do { читаем пока не конец файла }
  begin
    readln(DataFile, a.title); { считываем очередную запись }
    readln(DataFile, a.auname);
    readln(DataFile, a.ccc);
    
 
  end;
  CloseFile(DataFile);
  
 
  readln;
 
end.

program lab;
uses crt;
Type
  Assortim = record { Запись описывающая игрушки }
    title: string[20]; { Название игрушки }
    auname: word; { Возраст }
    ccc: word; { Стоимость }
 
  end;
cat = file of Assortim; {тип - каталог книг}
Var
  DataFile: string;
  n,i: Integer;
  a: Assortim;
  f:cat;
begin
  writeln ('Vvedite imia faila: ');
 readln (DataFile); {Получаем имя файла для создания }
 assign (f, DataFile); {связываем файл с именем на носителе}
 rewrite (f); {открываем файл для записи (создаём новый)}
 write('vvedite kol. zapisey: ');
 readln(n);
 for i:=1 to n do
 begin
     writeln('nazvanie:');
    readln(a.title);
 
    writeln(' vozrast:');
    readln(a.auname);
 
    writeln('cena:');
    readln(a.ccc);
 
    { пишем структуру в файл }
  end;
  Close (f); { закрываем файл, чтобы сохранить изменения }
  reset(f); { открываем файл для чтения }
  while not eof(f) do { читаем пока не конец файла }
  begin
    readln(DataFile, a.title); { считываем очередную запись }
    readln(DataFile, a.auname);
    readln(DataFile, a.ccc);
    if ((a.ccc<=4) and (a.auname>=5))
    then
     writeln( a.title);
  end;
  Close(f);
 
  readln;
 
end.

Type Igr = record {Запись, описывающая игрушку}
   title : string[20]; {Название}
   cena: word; {Стоимость}
   year : word; {Возраст}
 end;
 cat = file of igr; {тип - каталог игрушек}
 Var
   f : cat;
   Assortim : Igr;
   fnm, aut : string;
   y : word;
   i,n:integer;
 Begin
   writeln ('Vvedite imia faila: ');
   readln (fnm); {Получаем имя файла для создания }
   assign (f, fnm); {связываем файл с именем на носителе}
   rewrite (f); {открываем файл для записи (создаём новый)}
   write('vvedite kol. zapisey: '); readln(n);
   for i:=1 to n do
     begin
   {ввод данных}
       writeln ('Название:');
       readln (Assortim.title);
       writeln ('Цена:');
       readln (Assortim.cena);
       writeln ('Возраст:');
       readln (Assortim.year);
       write (f, Assortim); {пишем структуру в файл}
    end;
   close (f); {закрываем файл, чтобы сохранить изменения }
   reset (f); {открываем файл для чтения }
   while not eof (f) do {читаем пока не конец файла}
     begin
       read (f, Assortim); {считываем очередную запись}
       if (Assortim.cena<=4) and (Assortim.year>=5) then {если она удовлетворяет условиям}
         writeln (Assortim.title) {выводим название игрушки}
      end;
   close (f); {закрываем файл}
 end.