ADA - urgente fitxers

No se como leer de un fitxero texto i que me lo escriba por pantalla el texto que esta dentro, tengo la estructura para abrirlo , lo abre pero no se ler-lo. seguro que es facil pero, no se como hacerlo.
Si me pudieras hacer un ejemplo.
muchas gracias!

si el fichero es de tipo texto
define la variable
char : character;
o bien
Cadena : String(1..100);
G : tpfichero.file_type; --(si nuestro fichero es de tipo \"tpfichero\")

Para leer del fichero tienes que introducir:
Get(G, char); --También puedes hacerlo con cadenas de caracteres, lo ---cual será más rápido
Y para mostrarlo por pantalla:
Put(char);

Creo que eso es todo...
Txao