text turbo pascal

[ozmar_11]

hola tengo que hacer un programa que haga esto: Programa para grabar en un archivo de texto “Hola, ¿cómo estás?” caracter por caracter pero no se como hacerlo acabo de ver los file of tipe pero no les entiendo mucho algiuen puede decirme como hacerlo? creo que tengo un codigo pero no funciona es este:
program hola;
uses
crt;
var
frase,frase2:text;
letra:char;
begin
clrscr;
assign(frase,'FRASE.txt');
assign(frase2,'salida.txt');
reset(frase);
rewrite(frase2);
while not eof(frase) do
begin
while not eoln(frase) do
begin
read(frase,letra);
write(frase2,letra)
end;
readln(frase);
writeln(frase2);
end;
close(frase);
close(frase2);
readln;
end.
nota:el programa corre pero no muestra nada solo la pantalla negra al presionar enter sale del programa.