Pascal/Turbo Pascal - Caracteres Fichero

Hola, para estudiar un poquillo decidi hacer un programa que contara los caracteres que hay en un fichero.El problema esque siempre me dice fichero not found, y si le pongo una ruta lo mismo path not found. Aqui esta el codigo...Gracias
program cTexto;
uses crt;

type
Tindice='A'..'Z';
TContadores=array [TIndice] of integer;


procedure inicializarcontadores(vAR CONT:TContadores);
var
i:Tindice;
begin
for i:='A' to 'Z' do
cont[i]:=0
end;
procedure mostrarfrecuencias(cont:Tcontadores);
var
i:Tindice;
begin
for i:='A' to 'Z' do
write('La frencuendia de ',i, ' es de : ',cont[i]);
end;
procedure leerF(nomF:string;var cont:TContadores);
var
F:Text;
c:char;
begin
assign(F,'nomF');
reset(F);
while not eof do begin
readln(F,c);
c:=upcase(c);
if(c>='A') and (c<='Z') then
cont[c]:=cont[c]+1;
end;
close(F);
end;
var{pp}
contadores:TContadores;
nombre:string;

begin{pp}
clrscr;
inicializarcontadores(contadores);
writeln('Introdudca nombre(ruta) del fichero');
readln(nombre);
leerF(nombre,contadores) ;
mostrarfrecuencias(contadores);
readln;
end.

Esta línea:

assign(F,'nomF');

Ahí le estás diciendo que tu archivo se llama nomF y no que el nombre está en la variable nomF. Quita las comillas ;).

Gracias diego, pero el progrmama sigue teniendo algun fallo.Ahora, parece q lo abre, pero sin embargo no hace nada dandole un fichero correcto, en la misma carpeta y con el change dir ya cambiado.

Ah, eso escapa a la pregunta original, pero ya que insistes...

En vez de F: Text, declara:

F: file of char;

Y en vez de readln(F,c)...

Read(F,c);

Y nos cuentas cómo te fue.

nada...no funciona sigue dando error

¿Qué error?