Pascal/Turbo Pascal - ¿Por qué da error? Me dice archivo no encontrado.

En teoría este programa sirve entre otras cosas para crear un archivo, pero me da error, me dice archivo no encontrado. No se que ocurre, es obvio que no lo encuentre ya que no está creado pero es que ese es uno de los objetivos del programa.
PROGRAM Archivo1;
VAR
Archivo : TEXT;
BEGIN
Assign (Archivo, 'ROBOT.TXT');
Append(Archivo);
WriteLn(Archivo, 'Este es un texto de prueba');
Close (Archivo)
END.

El APPEND sólo sirve una vez que el archivo ha sido creado. Para evitar el mensaje de error, la primera vez usa la orden REWRITE.

PROGRAM Archivo1;
VAR
Archivo : TEXT;
BEGIN
Assign (Archivo, 'ROBOT.TXT');
{$I-}
Append(Archivo);
{$I+}
If (IOResult>0) then ReWrite(Archivo);
WriteLn(Archivo, 'Este es un texto de prueba');
Close (Archivo) ;
END.

Saludos ;-)

Si pero e todas formas no me crea el archivo, mira:

PROGRAM Archivo1;
VAR
Archivo : TEXT;
BEGIN
Assign (Archivo, 'ROBOT.TXT');
END.

¿Por qué no me lo crea?, ¿por qué me da error?. Gracias por preocuparte Hurricane.

El ASSIGN no crea el archivo, sólo lo está asignando a una variable para que lo puedas manipular. Con el REWRITE creas un archivo nuevo (o lo reemplazas si ya existe).

Saludos ;-)

Sólo acotar una cosa. Estás asignando el archivo sin una ruta, por lo que siempre buscará en la ruta actual. Trata de asignarle una ruta ("C:\TP\ROBOT.TXT", por ejemplo).

Saludos ;-)

Así que con REWRITE, no se por qué me había obcecado con Assign ya no sabía si tenía mal el compilador X-D. Gracias. Una cosa más si quiero que se sea el usuario quien diga que ruta y que nombre tenga el archivo ¿cómo lo haría?. Por ejemplo:
Suponemos un archivo creado con REWRITE, ahora hacemos
Writeln ('Introduzca un nombre para el archivo.');
Readln (nombre)
Assign (fichero, nombre)
De esta forma consigo asignar al archivo el nombre que me diga el usuario, pero¿ y si quiero que me diga también la ruta?. ¿Cómo haría para que el usuario me dijera en que carpeta (donde) lo quiere?.

Puede hacerlo haciendo el ingreso completo. Por ej: "C:\MISDOCS\ROBOT.TXT".

Saludos ;-)

Ok, gracias.