> -- Валерий Лаптев писал(а):
> Или вместо констант поставить переменные - как тогда сработает?Точно так же сработает, проверял.> -- Валерий Лаптев писал(а):
> Сначала безусловный после одного, потом - после двух.Всё равно не понимаю, что там искать. Вот пример, который работает точно так же, хотя до вывода в журнал пишет в локальную TextModels.Model.## Код:
```
MODULE PrivTest;

   IMPORT Log := StdLog, TextModels;
   
   PROCEDURE Test3* ();
   VAR
      t: TextModels.Model;
      wrA,wrB: TextModels.Writer;
   BEGIN
      t := TextModels.dir.New ();
      wrA := t.NewWriter (wrA);
      wrB := t.NewWriter (wrB);
      wrA.WriteChar ('A');
      wrB.WriteChar ('B');
      wrB.WriteChar ('B');
      wrA.WriteChar ('A');
      Log.text.Append (t); (* BABA instead of ABBA *)
      Log.Ln;
      t := TextModels.dir.New ();
      wrA := t.NewWriter (wrA);
      wrB := t.NewWriter (wrB);
      wrA.WriteChar ('A');
      wrB.WriteChar ('B');
      wrA.WriteChar ('A');
      wrB.WriteChar ('B');
      Log.text.Append (t); (* BBAA instead of ABAB *)
      Log.Ln
   END Test3;

END PrivTest.

^Q PrivTest.Test3
```
Другими словами, дело не в журнале (Log) и какой-то параллельности записи него, а в устройстве самого TextModels.Model и особенностях его работы с TextModels.Writer. Вот только найти бы документацию по этим особенностям...