Code:

function GetWord: boolean;

var

s: string; {предположим что слова не содержат>255 символов}

c: char;

begin

result := false;

s := ' ';

while not eof(f) do

begin

   read(f, c);

   if not (c in ['a'..'z', 'A'..'Z' {,... и т.д, и т.п.}]) then

     break;

   s := s + c;

end;

result := (s <> ' ');

end;

procedure GetWordCount(TextFile: string);

begin

Count := 0;

assignfile(f, TextFile);

reset(f);

while not eof(f) do

   if GetWord then

     inc(Count);

closefile(f);

end;