Определить текущий каталог диск C: — Pascal(Паскаль)

Uses Crt,WinDos;
Const CDrive : Byte = 3;
Var CurDir,ChangeTo : PChar;
    s : array[byte] of char;
Begin
clrscr;
 GetMem(CurDir, 80);
 write('Директория: ');
 readln(s);
 ChangeTo:=s;
 SetCurDir(ChangeTo);
 GetCurDir(CurDir, CDrive);
 WriteLn('Текущая директория на диске C - ', CurDir);
 readln
End.