Pascal/Turbo Pascal - Correct strings

Estimados amigos,

Como puede escribir una función para cambiar el último caractere de cada palabra para ponerlo en el inicio de la palabra?

Por ejemplo;

Sí yo tengo:

Pascal es una lenguaje

Como hago una función para hacer:

lPasca se aun elenguaj

Cordiales saludos

Lebron

Bueno, creo que se podrían (realmente no me acuerdo) usar funciones de pascal. Pero una forma propia sería:

var Frase:string;
Ind:byte;
Aux:char;

{Almacenamos el último caracter de la palabra para no perderlo}
Aux:=Frase[length(Frase)];

{Corremos (los string son como arreglos de tipo char) los caracteres desde el 1 hasta el anteúltimo, que se ubica en el último lugar}
for Ind:= 1 to length(Frase)-1
Frase[Ind+1]:=Frase[Ind];

{Por último, el primer caracter, se vuelve al auxiliar (último)}
Frase[1]:=Aux;

Por ejemplo: Frase='Hola'.
1) Aux:='a';
2) for... ---> 'HHol'
3) Frase[1]:=Aux---> 'aHol'

La función length() devuelve la longitud de un string (la ocupada, no la reservada en memoria). En este ejemplo, 4.

Espero te sirva, saludos y buenas compiladas.

Muchas gracias, amigo.

Saludos,

Lebron