Pascal/Turbo Pascal - Ayuda en la creación de un archivo de texto

program MuestraAutoexec2;

 var

   fichero: text;                         (* Fichero de texto *)

   linea: string;                         (* Línea que leemos *)

 begin

   assign( fichero, 'C:\AUTOEXEC.BAT' );  (* Le asignamos el nombre *)

   {$I-}                                (* Deshabilita comprobación

Olvidenlo acabo de encontrar los txt en la carpeta de instalación del programa.

pero aun así cuando probe este ejemplo no pude ingresar ningun dato

                                           de entrada/salida *)

   reset( fichero );                    (* Lo intentamos abrir *)

   {$I+}                                (* La habilitamos otra vez *)

   if ioResult = 0 then                 (* Si todo ha ido bien *)

     begin

     while not eof( fichero ) do        (* Mientras que no se acabe *)

       begin

       readln( fichero, linea );        (* Leemos una línea *)

       writeln( linea );                (* y la mostramos *)

       end;

     close( fichero );                  (* Se acabó: lo cerramos *)

     end;                               (* Final del "if" *)

 end.

var

                f : text;

                dato : string;

                assign(f,'Nombre.txt');

        {$I-} reset(f); {$I+}

        if ioresult <> 0 then

        begin

                rewrite(f);

                write(f,dato);

                close(f);

        end

else

        begin

            apend(f);

            write(f,dato);

            close(f);

        end;

end;