program Project182;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

begin
  try
    { TODO -oUser -cConsole メイン : ここにコードを記述してください }
    // Change this value
    SetCurrentDir('C:\Program Files');

    // Show the current directory again
    Writeln('Current directory = ' + GetCurrentDir);
    Readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.