нужно найти ошибку

[pandaaaaa]

Программа считает кол-во слов в файле, но на вывде показывает только "0", помогите найти ошибку =(

program asd;
procedure pr1(f: file of char; c:char;n:integer);
 var
 d: char;
 begin
d:= c;
read (f,c);
if not (c in [' ',#10,#13]) and (d in [' ',#10,#13]) then inc(n)
end;

var
f:file of char;
n:integer;
c:char;
a:string;
begin
writeln('введите путь к файлу');
read(a);
n:= 0;
assign(f,a);
reset(f);
c:= ' ';
while not EoF(f) do 
 pr1(f,c,n);
close(f);
writeln('the file contains ',n,' words')
end.