## Код:
```
PROCEDURE CreateDir(IN path: ARRAY OF CHAR);
    VAR
       file: Files.File;
    BEGIN
       file := Files.dir.New(Files.dir.This(path), Files.dontAsk);
    END CreateDir;
```

Вот так короче.