Pascal/Turbo Pascal - "Como Invertir una frase"

Hola a todos!!!
Me gustaría que alguien me pueda ayudar resolviendo un ejercicio en pascal
No pido que lo hagan sino que me ayuden;
El ejercicio consta de leer una frase por teclado y que el programa la de vuelta y la muestre de atrás para adelante.
Lo que intente es con un arreglo pero no le puedo cargar palabras (string); me anda con números pero no con palabras; desde ya muchas gracias por todo.-
A me dijeron algo de srtinleng o algo así!!! Conocen?

No se entiende tu pregunta.

1) Quieres que la oración quede exactamente hacia atrás. Ejemplo:

s:='Esto es una oración';

Que imprima:

nóicaro anu se otsE

2) Que imprima la oración con las palabas en orden inverso. Ejemplo:

s:='Esto es una oración';

Que imprima:

oración una es Esto

Si es 1):

var
s,t: string;
i: byte;
begin
...
for i:=length(s) downto 1 do t:=s[i];
WriteLn(t);
end.

Si es 2):
Hay muchas formas de hacerlo pero no con arreglos (array). Simplemente jugando con el string que tiene la oración. Un string en Pascal no es más que un array of char y como tal tiene índice. Ejemplo:

s:='Diego';
Writeln(s[3]); { imprime "e" }

Para saber el largo dinámico de la cadena una la función lenght() que devuelve un tipo byte con el largo de la cadena.

largo:=length(s);
Writeln(largo); { imprime "5" }

Sabiendo estas cosas puedes detectar los espacios entre palabras

for i:=1 to length(s) do
if s[i] = ' ' then Writeln('espacio en la posición',i);

En el primer caso el código solución es:

var
s,t: string;
i: byte;
begin
...
for i:=length(s) downto 1 do t:=t+s[i];
WriteLn(t);
end.

Hola.
Una manera de resolverlo es usando recursion en un procedimiento. Osea vas leyendo los caracteres desde el buffer hasta que por ejemplo termine en un (.) punto. Con eso tenes la condicion para salir de la recursion.. Luego al ¨volver¨ de la recursion vas imprimiendo el valor almacenado.

El codigo seria algo asi:

procedure invertir;
var
ch:char;
begin
read(ch);
if car<>'.' then
begin
invertir;
write(ch);
end;
end;