текстовый файл. двусвязные списки. Опции

[lopata]

Есть текстовый файл, который содержит имена детей и их желание на НГ. Выглядет это так :
Christoph: Schlitten
Barbara: Barbie-Puppe
Barbara: Puppenkьche
Christoph: Matchboxauto
Barabara: Blockflцte
Susi: Strolchi-Puppe

Нужно сделать двусвязный список, который содержит имена детей ,желания и "частоту желаний", добавляя эновый элемент в конец списка.
Вобщем смысл : создавать для кадой строчки текстового файла элемент списка и считывать туда эту строчку.
примерный код:

PROGRAM Wishes;
USES Wincrt;
TYPE
    WishNodePtr = ^WishNode;
    WishNode = RECORD
      prev, next: WishNodePtr;
      whish: STRING;  (*the wish*)
      n: INTEGER;     (*number of occurences of the wish*)
    END; (*RECORD*)

FUNCTION  READFROMFILE ;
var list, NewNode, previous : WishNodePtr;
BEGIN
List:= Nil;
WHILE not EOF DO
      BEGIN
(* здесь  условие: для первой строчки файла создаем элемент *)
           new(List);
           list^.prev:= NIL;
           list^.next := NIL;
           list^.wish := s;
           previous := list;
(* здесь условие: для всех остальных строчек файла *)

           New(NewNode);
           NewNode^.next := NIL;
           NewNode^.prev := previous;
           NewNode^.wish := s;
           previuos := NewNode;
      END;
          .
          .
          .

Не могу сообразить что это за условие может быть.
Или это вообще делается по-другому