Pascal/Turbo Pascal - cortar un string

necesito una funcion para cortar un string en funcion de los espacios.
Es decir de tener una linea con palabras separas por espacios y dividir toda esa linea en las distintas palabras para tratarlas de forma independiente y contar sus letras.

Habia que se llamaba "trim" creo, pero no se como se usa.
gracias

Pablo:

La manera mas facil es tomar el string en un ciclo e ir buscando alli el caracter del espacio y entonces hacer tus calculos. Paso a la practica (hazle los ajustes porque tengo varios anios sin usar pascal!)

Var
Oracion : String;
Palabra : String;
LargoP : Byte;
Conta : Byte;

Begin
Write('Ingrese Oracion: ' );
Readln(Oracion);
For Conta := 1 to len(Oracion) do
Begin {Aqui recorro toda la oracion!}
If Oracion[conta] = Chr(20) Then {hay un espacio}
Begin
{Aqui haz lo que necesites con la palabra}
End;
End;
End.

El codigo deberia quedar algo asi.

Ojala te ayude.

Saludos,

Hago las correcciones al ejemplo de Hector que en su concepto está correcto pero no en su sintaxis.

Var
Oracion : String;
Palabra : String;
LargoP : Byte;
Conta : Byte;

Begin
Write('Ingrese Oracion: ' );
Readln(Oracion);
For Conta := 1 to length(Oracion) do
Begin {Aqui recorro toda la oracion!}
If Oracion[conta] = #32 Then {hay un espacio}
Begin
{Aqui haz lo que necesites con la palabra}
End;
End;
End.