PListItem = ^TListItem;
TListItem =  record 
   {data fields here:} 
  Name:  string ;
  Age: Integer;
  Education: Boolean;
  .......
   {--------} 
  Next: PListItem;
 end ;

 var 
  VO_Head,  {голова списка с в/о} 
  WVO_Head,  {голова списка без в/о} 
  VO_Tail,  {хвост списка с в/о} 
  WVO_Tail,  {хвост списка без в/о} 
  Result,  {голова результата (склеенный список), впринципе можно и без этого но мухи и котлеты лучше разделять} 
  Node: PListItem;  {текущий элемент списка (только-что прочитанный из файла)} 
 begin 
  VO_head :=  nil ;
  WVO_head :=  nil ;
  VO_tail :=  nil ;
  WVO_tail :=  nil ;

 while  ( {пока есть записи в файле} )  do   begin 
   {тут читаем запись из файла} 

  Node := GetMem(SizeOf(TListItem));
  Node^.Next :=  nil ;
  Node^.Name := NameFromFile;
  Node^.Age := AgeFromFile;

  ......

  Node^.Education := EducationFromFile;

   if  (Node^.Education)  then   begin 
     if  (VO_Head =  nil )  then   begin 
      VO_Head := Node;
      VO_Tail := VO_Head;
     end   else   begin 
      VO_Tail^.Next := Node;
      VO_Tail := Node;
     end ;
   end   else   begin 
     if  (WVO_Head =  nil )  then   begin 
      WVO_Head := Node;
      WVO_Tail := WVO_Head;
     end   else   begin 
      WVO_Tail^.Next := Node;
      WVO_Tail := Node;
     end ;
   end 
 end 

 if  (VO_Head =  nil )  then   {нетути первого списочка} 
  Result := WVO_Head
 else 
 begin 
  Result := VO_Head;
  VO_Tail^.Next := WVO_Head;
 end ;

Node := Result;

 while  (Node <>  nil )  do 
 begin 
  Writeln('Name: ', Node^.Name);
   {и прочую хренотень о сотруднике выводим тут} 
  Node := Node^.Next;
 end ;

 {Да и культурно очищаем память} 

 while  (Result <>  nil )  do 
 begin 
  Node := Result;
  Result := Result^.Next;
  FreeMem(Node, Sizeof(TListItem));
 end ;