Pascal/Turbo Pascal - Contar Palabras

Hola. Necesito saber como hacer un procedimiento en pascal capaz de contarme el numero de palabras de una cadena de tipo string. Gracias

Ahi va

function Contar(cadena:string):byte;
var
cant,len, i :byte;

begin
cant:=1;
len:=length(cadena);
for i:=1 to len do
if cadena[i] = ' ' then
inc(cant);
contar:=cant;
end;


Un abrazooo, cualquier duda volve a preguntar :)

Si el string contiene dos (o más) espacios en blanco seguidos cuenta palabras que no existen.

A ver, prueba con este:

Uses Crt;
Var Cadena: String;
Palabras: Integer;

Procedure CuentaPalabras(Var Oracion: String);
Var I : Integer;
Begin
For I := 2 to Length(Oracion) do
If Oracion[I] = ' ' then Palabras := Palabras + 1;
End;

Begin
ClrScr;
Palabras := 1;
WriteLn('Intruduzca una oracion');
ReadLn(Cadena);
CuentaPalabras(Cadena);
Writeln('Cantidad de palabras = ',Palabras);
ReadKey
end.

var
oracion: string

function Palabras(Oración: string): integer;
var
Result: integer;
begin
Result:=0;
Oracion:=trim(Oracion);
if Length(Oracion) > 0 then
if Length(Oracion) > 1 then
begin
for i:=1 to Length(Oracion)-1 do
if (Oracion[i] = ' ') and (Oracion[i+1] <> ' ') then
inc(Result);
end
else Result:=1

Palabras:=Result;
end;

begin
oración:='esto es una oracion';
WriteLn('La oración "',oracion,'" tiene ',Palabras(oracion),' palabras.');
end.

Hola Diego.
Mi compilador de Turbo Pascal no puede procesar esto:

Oracion:=trim(Oracion);

Me parece que no compilaste tu código pues, en algunos lugares escribiste la varible oracion con tilde y en otros no.

Cierto, lo escribí "de memoria". ¿Trim() no existe en turbo pascal?, habría jurado que sí :P. Bueno, trim() sería una función que quita los caracteres no imprimibles por delante y por detrás de un string incluyendo los espacios en blanco. Es para evitar las cadenas que no tienen palabras (por ejemplo, que el usuario presione la barra espaciadora y luego enter).

ups es re tarde jeje pero bueno...
el programa asi no anda bien, si yo tengo la siguiente oracion:

"_ _ _ _ _ hola " donde '_' son espacios , el programa que escribiste me cuenta 5 palabras y solo hay una.