Pascal/Turbo Pascal - duda programa archivo texto

La verdad es que no me funciona, creo que da un bucle infinito, es en TP7:

Completar la función numeroCaracteres para que devuelva el número total de caracteres almacenados en el archivo de disco asociado (antes de la llamada a la función) al parámetro variable f de tipo text. En el caso de que el archivo esté vacío debe devolver el valor entero 0.

Y copio lo que viene:

function numeroCaracteres(var f:text):longint;
{ variables de uso opcional }
var n:longint; aux :char;
begin
{ Escribe a continuacion tu código }

(Y yo he puesto por ejemplo (una de las 1000 cosas que he probado que he probado))

n:=0;
reset(f);
while not eof(f) do
BEGIN
readln(f, aux);
n:=n+length(aux);
close(f);
END;

-------------------------
{ Fin de tu código }
end;
-------------------------

He probaso con y sin reset(f), con y sin eof(f), con y sin eoln(f), y alguna cosa más, pero no doy con ello. Es para la uni, asi que no debería ser extraordinariamente dificil, XD.

Gracias y un saludo.

Debes contar los caracteres de un archivo?, declaralo como file of char.

function cuentaCaracteres(archivo: string): longint; { pasar el nombre del archivo }
var
f: file of char;
result: longint;
c: char;
begin
result:=0;
assign(f,archivo);
reset(f);
while not eof(f) do
begin
read(f,c);
inc(result);
end;
cuentaCaracteres:=result;
end;

Lo huebiera hecho, pero todo lo que he escrito hasta el "{ Escribe aqui tu código}" es el enunciado, y no se puede cambiar, los de la uni no lo ponen tan facil, XD.

Hola Micky.

Por si aún no haz tirado la toalla te paso la function que puede solucionar tu problema:

Function CuentaCaracteres(VAR f : text) : longint;
VAR
n : longint; aux : char;

BEGIN
n := 0
assign(f,'C:\bp\bin\archivoexterno.txt');
reset(f)

while not eof(f) do
begin
read(f,aux);
if aux <> #32 then {descartamos el caracterer "espacio". Igualmente podemos descartar otros caracteres }
inc(n)
end;
Cuentacaracteres := n
end; { de la function}
Espero te solucione el problema y suerte.

Gracias por responder Antonio, no he podido probar tu opción porque ya me cerraron el plazo de correccion online, pero creo que podria estar bien.

Al final pregunte a un compi y me dio la solucion correcta, que es la que pego a continuacion:

function numeroCaracteres(var f:text):longint;

var n:longint; aux :char;
begin

n:=0;
reset(f);
if eof(f) then numerocaracteres:=0
else begin
while not eof(f) do begin
read(f,aux);
n:=n+1;
end;
numerocaracteres:=n;
end;

end;

Gracias y felices fiestas