Soy un novato en Free Pascal. Tengo dos preguntas y me pregunto si los expertos pueden responderlas.

1. Cite la unidad crt al principio: usa?crt;

Agregar repetición?hasta?clave presionada al final

Después de ejecutar, presione cualquiera; tecla salir.

2. Utilice Free?Pascal?2.4.0, seleccione chino en la opción de página de propiedades: Página de códigos actual

(http://www.freepascal.org/download.var). )

1.var?str: cadena; comenzar

assign(entrada, 'd:\a.txt');?reset(entrada);

assign(salida,'d:\b.txt');?reset(salida);

mientras?no?eof(entrada)?empezar

readln(str) ;

writeln(str); fin

cerrar(entrada);

cerrar(salida); p>

fin.p>

2.var?str: cadena; comenzar

assign(entrada,'d:\b.txt');?reset(entrada);

cerrar(entrada);

borrar(entrada);?{eliminar d:\b.txt}

end.?

3 .var?str: cadena; comenzar

assign(entrada,'d:\a.txt');?reset(entrada);

assign(salida,'d:\ c.txt');? reset(salida);

mientras?no?eof(entrada)?empezar

readln(str);

escribir (cadena); fin;

cerrar(entrada);

borrar(entrada);?{eliminar d:\a.txt}

cerrar(salida) );

fin.

No está compilado, debería ser correcto