RosettaCodeData/Task/Globally-replace-text-in-several-files/PascalABC.NET/globally-replace-text-in-several-files.pas

##
foreach var name in EnumerateFiles('.','*.txt') do
  WriteAllText(name,ReadAllText(name).Replace('Goodbye London!', 'Hello, New York!'));