Желательно добавить проверку на то, что поток открылся. Для большей ясности.
## Код:
```
...
BEGIN 
   n := 0; 
   In.Open;
   IF In.Done THEN
   (* Считаем количество элементов в выделенном фрагменте *) 
   ...
   END
```
