Ejemplo de redirección de salida estándar en FreePascal

testredir.pas

program TestRedir;

{$mode objfpc}

uses
 Sysutils, baseunix;

var
  FOUT : ^File;
  TempHOut : longint;

begin
   New(FOut);
   Assign (FOUT^, 'somefile.txt');
   Rewrite(FOUT^);
   TempHOut:=fpdup(StdOutputHandle);
   fpdup2(FileRec(FOUT^).Handle,StdOutputHandle);
   Writeln('Hello World');
   fpdup2(TempHOut,StdOutputHandle);
   Close(FOUT^);
   fpclose(TempHOut);
end.