Usar las redirecciones dentro de una aplicación cónsola

program Upper; 
{$APPTYPE CONSOLE} 
// Redirección de tipo 'PIPE', comportamiento similar al programa FIND.EXE o SORT.EXE
// Reenvía una cadena recibida (input) en mayúsculas por la salida (output) 
uses SysUtils; 
 
Var
  Cadena: String; 
 
procedure CloseFile; 
begin 
  Close(INPUT); 
  Close(OUTPUT); 
end; 
 
Begin 
  try 
    Assign(INPUT,'');       { entrada estándar } 
    Reset(INPUT);           { el fichero existe; reset en sólo lectura } 
    Assign(OUTPUT,'');       { salida standard } 
    Rewrite(OUTPUT);         { el fichero no existe; rewrite en sólo escritura } 
 
    While not(Eof) Do 
    Begin 
      Readln(INPUT, Cadena);     
      Writeln(OUTPUT, UpperCase(Cadena)); 
    end 
  Finally 
    CloseFile; 
  end; 
end.

@echo off 
 rem Convertir en mayúsculas el contenido del fichero minusculas.txt
 Type Minusculas.txt|Upper>Mayusculas.txt