GetDir palauttaa tämänhetkisen polun parametrinä annettuun String-muuttujaan. Windowsissa täytyy määrittää myös asema, Linuxissa parametriä ei huomioida. Asema 0 on se, jolta ohjelma on käynnistetty. 1 on A, 2 on B jne.
procedure GetDir(D: Byte; var S: String);
