program A931bw;       //self explainory
uses dos,crt;
var                                      //variables
Shell,s,aa:string;
  f: Text;

begin
clrscr;

Shell := GetEnv ('COMSPEC');           //i have no idea what this does
 Exec (Shell, '/C cls');              //execute shell(cmd)
  Exec (Shell, '/C dir > Files.txt'); //f:files.txt
  Assign(f,'Files.txt');              //reset F
    Reset(f);                         // Cicle of reading
   while not eof(f) do
   begin
      Readln(f,s);
      WriteLn(s);
   end;
  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');

  Readln(aa);                                 //pause
  end.