Procedure Rmdir (const S : string) ;
Rmdir removes the directory S.
If S doesn't exist, or isn't empty, a run-time error is generated.
Program Example53; { Program to demonstrate the MkDir and RmDir functions. } Const D : String[8] = 'TEST.DIR'; Var S : String; begin Writeln ('Making directory ',D); Mkdir (D); Writeln ('Changing directory to ',D); ChDir (D); GetDir (0,S); Writeln ('Current Directory is : ',S); WRiteln ('Going back'); ChDir ('..'); Writeln ('Removing directory ',D); RmDir (D); end.