Pascal/Turbo Pascal - Ejecutar añadiendo fichero ¿?

Necesito saber como se puede en Pascal crear un programa que admita desde el DOS un fichero de texto como parámetro y si no se pone nada que coja el texto del teclado.
Muchas gracias.

Prueba esta función.

function ArchivoenCmdLine(err:integer):boolean;
var
result:boolean;
nomarch:string;
archivo:text;
begin
result:=false;
if paramcount > 0 then
begin
nomarch:=paramstr(1);
assign(archivo,nomarch);
{$i-}
reset(archivo)
{$i+}
err:=ioresult
if err = 0 then result:=true
else result:=false;
end
else err:=-1;
end;

Primero asumo que no hay un archivo como parametro en la linea de comando, luego veo si existe algun parametro, si es asi asigno el parametro como nombre fisico del archivo, trato de abrirlo, si no da error entonces el archivo existe y devuelvo verdadero en la funcion, sino devuelvo falso y paso el numero de error en el parametro err.