Abrir archivos y leer en Pascal

[novatillo]

Buenas programando pascal:

Program leer;
Uses Crt;
Var
texto:text;
Begin
Assign(texto,'prueba.txt');
Append(texto)
WriteLn(texto,'Hola prueba');
Read(texto);
close(texto);
End.


Escribir escribe perfecto, pero leer, no me muestra en pantalla nada. ¿Alguien sabe por qué?


Venga, gracias. Saludos.