const TempFile: string = System.Environment.CurrentDirectory; begin writeln(TempFile); writeln(TempFile); end.