Кстати, процедура Write тоже не совсем правильная, она может быть куда проще, ведь все Item записываются рекурсивно. Поэтому достаточно один раз вызвать WriteStore, а список Item запишется каскадным вызовом методов  Internalize:
## Код:
```
PROCEDURE Write*;
      VAR wr: Stores.Writer;
   BEGIN
      wr.ConnectTo(f);
      wr.WriteStore(repo)
   END Write;
```
