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;