Codificar un string en Delphi.

[napsterk89]

Hola, hace muy poco estoy aprendiendo a programar en Delphi. Actualmente estoy cursando una carrera de Técnico en Programación y me estoy metiendo en el tema.
Tengo un problema en el cual se me acabaron las ideas y necesito algo de ayuda. Si alguién tiene alguna idea para darme estaría agradecido...

Necesito hacer un programa a el cual cuando le ingrese un texto tome todas las palabras pares e intercambie su primera y última letra. Por ejemplo, si ingreso "El día está lluvioso" me devuelva "Le día áste Oluviosl".

Hasta ahora tengo esto, obviamente no funciona pero tiene cosas que sirven, solo no se como "ordenarlo" para hacerlo funcionar.
Una cosa más. En este prog no me permiten el uso de Arrays.
Gracias!

Código Delphi [-]
program ASD;

uses
  sysutils,
  dialogs;

Var TEXTO,car1,PALABRA,car2,car,mensaje:string; i,c:integer;

BEGIN

Mensaje:=INPUTBOX('Ingresar mensaje','Ingrese un mensaje','');
TEXTO:='';
FOR i:=1 TO Length(Mensaje) DO
Begin
CAR:=COPY(Mensaje,i,1);
TEXTO:=TEXTO+CAR;
End;
  IF (CAR=' ') AND (Length(texto) MOD 2 = 0 )
      THEN
           BEGIN
           CAR1:=COPY(texto,1,1);
           DELETE(texto, 1, 1);
           CAR2:=COPY(texto,Length(texto), 1);
           DELETE(texto,Length(texto),1);
           TEXTO:= CAR2+texto+CAR1;
           end;

SHOWMESSAGE(TEXTO);


end.