Для  строк из SHORTCHAR можно так.
## Код:
```
PROCEDURE SString* (IN s: ARRAY  OF SHORTCHAR); 
 TYPE AB= ARRAY OF BYTE;
 BEGIN 
    f.WriteBytes(SYSTEM.VAL(AB,s),0,LEN(s$))
 END SString;
```

Правда, для CHAR уже не пойдет.