## Код:
```
TYPE 
      Str* = POINTER TO ARRAY [untagged] OF SHORTCHAR; 
                            ShortString* = POINTER TO ARRAY OF SHORTCHAR;

   PROCEDURE StrToShortChars* (str: Str): POINTER TO ARRAY OF SHORTCHAR;
      VAR x: ShortString; i: INTEGER;
   BEGIN
      IF (str # NIL) THEN
         NEW(x, LEN(str$)+1);
         FOR i := 0 TO LEN(str$)-1 DO x[i]:=str[i] END;
         RETURN x
      ELSE
         RETURN NIL
      END
   END StrToShortChars;
```


вместо str скармливаем указатель на строку. для юникода соответсвтенно SHORTCHAR заменить на CHAR