Ошибка-призрак: пустое имя файла

.....
n:=0; n0:=0;
if FileExists(fname) then
  begin
  writeln('имя файла fname:',fname);{выводит на экран имя файла, оно не пустое}
  while keypressed do readkey;{от ложных срабатываний}
  readkey;{чтобы посмотреть имя файла}
  assign(fin,fname);
  reset(fin);
  while not EoF(fin) do {на этой строке указывается ошибка}
     begin
     s:='';
     readln(fin,s);
     inc(n);
     if str=s then inc(n0);
     end;
  close(fin);
  end;
....

 assign(fin,fname);
 if FileExists(fname) then

{wrdCount реализует процентную статистику слова в текстовом файле}
{параметры str-искомое слово, fname-имя входного файла, proc - процентная доля в тексте}
{возвращаемое значение - количество появлений в тексте из файла fname}
function wrdCount(str,fname:string;var proc:real):integer; {Word Count TXT}
 var
  s:string;
  fin:text; {File In - входной файл}
  n,n0:integer;{n-число слов, n0-число искомых слов}
 begin
 n:=0; n0:=0;
 assign(fin,fname);
 if not(fname='') then
 if FileExists(fname) and (fname<>'') then
  begin
  reset(fin);
  while not(EoF(fin)) do {цикл поиска слова в файле с разделёнными словами}       {Ошибка ввода/вывода 6: нельзя открыть на чтение файл с пустым именем (ForOut.pas, строка 175)(на слове книга)}
   begin
   s:='';
   readln(fin,s);
   inc(n);
   if str=s then inc(n0);
   end;
  close(fin);
  end;
  if (str='') then {исключение, на случай пустой строки}
    begin          {тогда, считаем сколько всего слов}
    wrdCount:=n;
    proc:=100;
    end
  else
    begin
    if n<>0 then proc:=n0/n*100
    else proc:=0;
    wrdCount:=n0;
    end;
 end;

const
    CountLine = 10;
 
type
    TTable = array [1..CountLine] of string;
    TFile = file of TTable;
 
function ReadData(TableFile:TFile; Line:byte;Position:byte):string; //функция считывает "Position"ый
//элемент массива из "Line"ого элемента файла
 
var
   TableFile:TFile;
begin
 
Line:=Line-1;
 
reset(TableFile);
seek(TableFile,Line);
read(TableFile,Table);
ReadData:=Table[Position];
end;
 
var
    Str:string;
    x,y:byte;
begin
assign(TableFile,'db.db');
reset(TableFile);
y:=5;
x:=3;
Str := ReadData(TableFile, y, x);//считает из файла 3 элемент 5 массива
 
close(TableFile);
end.