在Ada中，可以使用Text_IO文件类型和SET_OUTPUT过程来实现可灵活重定向输出的功能。下面是一个示例代码：

with Ada.Text_IO;

procedure Main is
   -- 定义一个Text_IO文件类型
   Output_File : Ada.Text_IO.File_Type;

begin
   -- 打开一个输出文件
   Ada.Text_IO.Open(File => Output_File, Mode => Ada.Text_IO.Out_File, Name => "output.txt");

   -- 将输出重定向到文件
   Ada.Text_IO.Set_Output(File => Output_File);

   -- 输出到文件
   Ada.Text_IO.Put_Line("This line will be written to output.txt");

   -- 重新设置输出到控制台
   Ada.Text_IO.Set_Output(File => Ada.Text_IO.Standard_Output);

   -- 输出到控制台
   Ada.Text_IO.Put_Line("This line will be written to the console");

   -- 关闭文件
   Ada.Text_IO.Close(Output_File);
end Main;

上面的示例代码首先打开一个名为"output.txt"的输出文件，并将其保存在Output_File变量中。然后，使用Set_Output过程将输出重定向到该文件。接下来，使用Put_Line过程将一行文本输出到文件中。然后，通过重新调用Set_Output过程，将输出重新设置为控制台。最后，再次使用Put_Line过程将另一行文本输出到控制台。最后，关闭输出文件。