Переписал процедуру Read таким образом, чтобы прочитать ранее записанные данные из файла. Заодно убрал лишний вызов rd.SetPos(0), ведь Stores.Reader делает это сам в методе ConnectTo. Кроме этого, попытка прочесть персистентный объект из пустого файла приведёт к трапу, ведь метод ReadStore не занимается проверкой конца файла перед чтением. Поэтому необходимо убедиться в том, что файл не пустой.
## Код:
```
PROCEDURE Read*;
      VAR rd: Stores.Reader; st: Stores.Store;
   BEGIN
      repo := NIL;
      rd.ConnectTo(f);
      IF f.Length() > 0 THEN rd.ReadStore(st) END;
      IF st # NIL THEN repo := st(Item) END
   END Read;
```
Для пущего удобства, надо ещё экспортировать OpenFile и использовать следующие сценарии:


Запись в файл

1) Создадим и заполним данными наш репозиторий, заодно подключимся к файлу
PrivFilesDb.Init
2) Запишем данные в файл
PrivFilesDb.Write


Чтение из файла

1) Подключение к файлу-репозиторию
PrivFilesDb.OpenFile
3) Прочитаем данные из файла
PrivFilesDb.Read