Pascal/Turbo Pascal - cadenas palindromas!!!!

Hola, necesito hacer un ejercicio que me diga si una frase es palindroma, es decir si se lee igual al derecho que del reves; bien, solo me sale que es palindroma cuando es una palabra sola, si introduzco una frase me dice que no lo es; este es el codigo que tengo:

program palindromo;
uses crt;

var
cad1:string;
cad2:string;

procedure invertir(cadena:string; var cad2:string);
var
i:integer;

begin

for i:= length(cadena) downto 1 do
cad2:=cad2+cad1[i];
if (cad2=cad1) then
write('la cadena es palindroma');
if cad2<>cad1 then
write('no lo es');
readkey;

end;

begin
clrscr;
write('Introduzca frase: ');
read(cad1);
invertir(cad1,cad2);
clrscr;

readkey
end.

si sabe algo, que no dude en responder, gracias!!

Bueno. Hay dos cosas que se me ocurren:

1_ No inicializás Cad2 antes de empezar a meterle letras. Esto puede hacer que tenga basura.

2_No sacás los espacios... Por ejemplo "Onis es asesino" es palíndroma solamente si le sacás los espacios entre las palabras... ¿No será eso lo que te está fallando?

Por lo demás, el código parece que está bien... para mí que es por los espacios...

Yo ese ejercicio lo hice y me salio bien, pero era solo para palabras, no para strings. Si te interesa te lo paso el codigo.

Oye

Yo necesito super urgente si me puedes colaborar lo más pronto posible te lop agradezco hasta el cielo.

mile

Estoy de acuerdo con M@rceloL

Hola si me pudieras mandar el codigo de las cadenas palindromas estaria genial porque es para una tarea para el martes 14 de noviembre del presente año.
Por su atencion gracias.