> -- Alexander Shiryaev писал(а):
> SYSTEM.VAL работает, и всегда работало.

РазобралсяЯ пытался преобразовать SET в BYTE, поэтому было сообщение "casting not allowed".

Вот такой пример компилируется O7 без проблем:
## Код:
```
MODULE DemoVal;
   IMPORT SYSTEM;
   VAR int: INTEGER; set: SET;

   PROCEDURE Do*;
   BEGIN
      set :={2, 3, 4}; 
      int := ASR(ORD(set), 2);
      set := SYSTEM.VAL(SET, int);
   END Do;
END DemoVal.
```


Всем спасибо за обсуждение. Тему предлагаю считать закрытой. SYSTEM.VAL действительно вполне достаточно, так что BITS не требуется.