archivo: textfile;
nombreArchivo: string;
dato: string;
begin
//Preguntamos al usuario el nombre del archivo
writeln('Ingrese el nombre del archivo: ');
readln(nombreArchivo);
//Abrimos el archivo para escritura
assignfile(archivo, nombreArchivo);
append(archivo);
//Escribimos una línea en el archivo
writeln(archivo, 'Hola, mundo!');
//Cerramos el archivo
closefile(archivo);
end.