Ayuda!! ¿necesito saber como contar palabras de un archivo de texto? !!!?

[j1o9g9d2]

hola a todos pues bueno al igual que a varios necesito ayuda con pascal xD!.... bueno tengo una duda que es como hago para contar palabras de un archivo de texto ¿?? esto es lo que yo llevo:

procedure archivo;

assign(prueba,ruta);
reset(prueba);

while not eof(prueba) do
begin

read(prueba,ch);
write(prueba);

end;
close(prueba);

por supuesto esto lleva sus variables y contantes pero bueno la cosa es como yo hago para contar las palabras de ese archivo de texto existente ps tenia una idea ya ps pero no me funciono se que con los espacios de cada palabra es que se cuentan pero...¿? intente algo pero no me funciono y vi algo aqui mismo en otro tema pero muestra cuando se ingresan las palabras por pantalla y muestra el resultado pero yo no lo quiero asi ps lo quiero hacer internamente y que salga de una vez el resultado por pantalla ........ porfas ayudenme en esta!! pliss! se los agradeceria mucho!!

[FTech]

Yo leería el fichero por líneas y a cada línea las asignaría a un buffer, en dicho buffer contaría los espacios.