Внешние файлы: найти названия и цену игрушек, которые подходят одновременно детям до 4-х и 10-и лет

type
  elem_ptr=^elem;
  elem = record
    name: string;
    price: real;
    loage, hiage : byte;
    next, prev:elem_ptr
  end;
 
procedure parse_item(var item:elem; itemstr:string);
begin
with item do
  begin
  next:=nil; prev:=nil;
  writeln('Name');
  readln(name);
  writeln('Price');
  readln(price);
  Writeln('Age');
  readln(loage,hiage)
  end
end;
 
procedure add_elem(var list:elem_ptr; item:string);
var
  tmp : elem_ptr;
begin
  new(tmp);
  parse_item(tmp^, item);
  if list=nil then list:=tmp
  else begin
    while list^.next <> nil do list:=list^.next;
    list^.next:=tmp;
    list^.next^.prev:=list
  end
end;
 
var
  list:elem_ptr;
{  f : text; }
  tstr : string;
begin
 
{  assing(f, 'myfile.txt');
  reset(f);
  while not eof(f) do}
  while not eof() do
    begin
{    readln(f, tstr);}
    add_elem(list, tstr)
    end;
{...}
if list = nil then halt(1); { пустой список }
writeln('Введено:');
while list^.prev <> nil do list:=list^.prev;
repeat
  with list^ do
       writeln(name:30, loage:3, hiage:3, price:8:2);
  list:=list^.next
until list=nil
end.