Чёрт, пока ответ готовил, Иван сказал тоже самое. Только быстрее : )

Для наглядности вот:

BABA

Жирным помечены буквы, записанные второй раз.

А в программе можно посмотреть так:
## Код:
```
wrA.WriteChar ('A'); Log.Char('[');Log.Int(wrA.Pos());Log.Int(wrB.Pos());Log.Char(']');Log.Ln();
```
