Lee un archivo caracter por caracter

pascal:
{-Victor De la Rocha}
{-Algoritmia@groups.msn.com}
{-www.myalgorithm.com}
{
-Programa 2
-Le un Archivo Caracter por Caracter
}
uses
 crt;
const
 ARCHIVO='ARCHIVO2.TXT';
type
 F=TEXT;
var
 Letras:F;
 Caracter:char;
procedure titulo(titulo:string;y:integer);
 begin
  gotoxy(trunc((80/2)-(length(titulo))/2),y);
  write(titulo);
 end;{Procedure titulo}

begin{Programa Principal}
 ClrScr;
 titulo('Programa 2',1);
 titulo('>Lee un archivo caracter por caracter<',2);
 writeln;
 {*--->Asigno el ARCHIVO a Letras(El que voy a leer)<---*}
 assign(Letras,ARCHIVO);
 {$I-}
  reset(Letras);
 {$I+}
  if ioresult=0 then {} else rewrite(Letras);
 reset(Letras);

 {*--->Intento leer Letras caracter por caracter<---*}
  while not eof(Letras) do
   begin
    while not eoln(Letras) do
     begin
      read(Letras,caracter);
      write(caracter);
     end;{while not eoln}
    readln(Letras);
    writeln;
   end;{while not eof}
  Close(Letras);
 {*---><---*}

 ReadKey;
end.
Lee una Archivo caracter por caracter Este es el archivo de text ARCHIVO.TXT, y no tiene nada de chido este archivo, solamente sirve para la lectura del archivo este es el ultimo parrafo de mi archivo fin. Archivo Leido con exito!
¿Ya le viste algún error? Dejanos tu correción ;-)

Antes de comentar: Gran parte de los ejercicios propuestos no tienen librerías debido a que Wordpress elimina los tags HTML. Si sabes/tienes/conoces las librerías que hacen falta, déjalo en los comentarios.

Otro punto antes de comentar, Si vas a sugerir un segmento de código en algún lenguaje debes hacerlo así:

De esta manera el código sale coloreado.

Otro punto importante para muchos que sienten que se les ignora: Todos los comentarios los reviso y en su debido momento los apruebo, pero ojo con el último párrafo.

Para poner los símbolos de las librerías sin que desaparezcan, debes escribir los símbolos de mayor > y menor qué < con su entidad HTML correspondiente, así como el símbolo de &

Mis Algoritmos se reserva el derecho de alterar, publicar o no los comentarios así como cambiar estas reglas de uso.

Si estas de acuerdo, adelante puedes comentar :)

P.D. No le hago tareas a nadie, mejor hagan la mía :P