Как при помощи модуля Stores сохранить два списка (один вложен в другой)? Как я понимаю придётся циклически перебирать оба списка и сохранять их поля, а потом аналогичным способом восстанавливать при загрузке. Надо ли использовать Stores.Writer.WriteStore? Из модуля ObxStores непонятно, как использовать WriteStore для списков.
## Код:
```
TYPE
   myKey = POINTER TO RECORD
      day, month, year: BYTE;
      price: SHORTREAL;
      next: myKey;
   END;
   turn = POINTER TO RECORD (Stores.Store)
      name: ARRAY 256 OF CHAR;
      key: myKey;
      firstKey: myKey;
      next: turn;
   END;

PROCEDURE (t: turn) Externalize (VAR w: Stores.Writer);
VAR
   auxiliaryNames: turn;
   auxiliaryKeys: myKey;
BEGIN
   StdLog.String ("Сохраняю");
   auxiliaryNames := t;
   WHILE auxiliaryNames # NIL DO
      w.WriteString (auxiliaryNames.name);
      auxiliaryKeys := auxiliaryNames.firstKey;
      WHILE auxiliaryKeys # NIL DO
         w.WriteByte (auxiliaryKeys.day);
         w.WriteByte (auxiliaryKeys.month);
         w.WriteByte (auxiliaryKeys.year);
         w.WriteSReal (auxiliaryKeys.price);
         auxiliaryKeys := auxiliaryKeys.next
      END;
      auxiliaryNames := auxiliaryNames.next
   END
END Externalize;
```
