var
  Dir

StandardIO

DirectoriesOnly
WholeFileNames

Dir = CleanFileName(ParamStr(2))

if ExistDir (Dir)
   ReadSubdirectories (Dir)
endif


Procedure ReadSubdirectories (Dir)
var Subs
   Writeln Dir
   ReadDirectory(Dir,Subs)
   Loop Subs
      ReadSubdirectories(LoopVal)
   EndLoop
EndProc