Вариации на организацию чтения участка [beg, end)

1) постусловие rd.Read: ~rd.eot => rd.Pos() = rd'.Pos() + 1
## Код:
```
rd.SetPos(beg); rd.Read;
WHILE ~rd.eot & (rd.Pos() <= end) DO
  ...
  rd.Read
END
```

2) с дополнительной переменной "длина" можно без rd.Pos()## Код:
```
len := end - beg; rd.SetPos(beg); 
WHILE len > 0 DO
  rd.Read;
  ...
  DEC(len)
END
```
