a931bw

  writeln('Add or Remove subdirectory? a , r');
  readln(a);

  if a = 'a' then
  WriteLn('Enter Folder name to create!');        //Write new line TEXT
  Readln (aa);                                // Read variable aa value
  {$I-}   { Don't Abort program on error }      // IO test
  MKdir (aa);                                 //make new dir called
  if IOResult <> 0 then                       //Error check
    Writeln ('Error')
  else
       Writeln('done');
       else
       WriteLn('Enter Folder name to remove!');        //Write new line TEXT
  Readln (aa);                                // Read variable aa value
  {$I-}   { Don't Abort program on error }      // IO test
  RMdir (aa);                                 //make new dir called
  if IOResult <> 0 then                       //Error check
    Writeln ('Error')
  else
       Writeln('done');