begin
  var path := 'C:\PABCWork.NET';
  EnumerateAllFiles(path,'*.pas').PrintLines;
end.