Pascal/Turbo Pascal - Crear fichero

¿como puedo crear un fichero en la unidad donde tenga el codigo?sin necesidad de estar cambiando cada vez que cambio de pc.

writeln('digame el nombre del fichero');
read(nombre);
assign(fc,'d:\'+nombre); (****aqui en vez de 'd:\' poner una palabra del lenguaje
rewrite(fc); que he visto alguna vez pero no me acuerdo *******)

gracias

hola Andres Calamaro prueba con \carpeta\archivo.dat en vez de UNIDAD:\carpeta\archivo.dat
el directorio ó carpeta \carpeta\archivo.dat debe existir en la unidad actual
si no te va a lanzar un error ,pero puedes interceptarlo mediante ioresul.

mejor opcion que ésta, es que busques en todas las unidades como fichero de solo lectura hasta que encuentres tu ruta , y vas descartando cuando encuentres un error.

SALUDOS de MICROPAIS.