Pascal/Turbo Pascal - Módulo de Seguridad con palabras palíndromas

hola!!!, necesito la ayuda de alguien :(, como puede hacer en pascal un procedimiento de seguridad en el cual las contraseñas tienen que ser palabras palíndromas(es una palabra que al escribirse en forma inversa queda igual, ejemplo ana, anona)

gracias la ayuda que me puedan brindar!

Bueno, un enfoque sería usar recursión para verificar si es palíndroma:

function Palindroma(Palabra:string;ind1,ind2:byte):boolean;
begin
if Ind1 >=Ind2 then
Palindroma:=true
else
Palindroma:=(Palabra[Ind1]=Palabra[Ind2]) and Palindroma(Palabra,Ind1+1,Ind2-1);
end;

Ind1 comenzaría en 1 e Ind2 en la longitud de la palabra (funcion length).

P.E: if Palindroma(Pal,1,length(pal)) then bla bla

hola!!, muchas gracias por tu codigo, pero es que apenas estoy enpesando con pascal y me cuesta un poco, como puede implementar tu codigo en un procedimiento para que cuando corra la aplicacion me aparezca primero que digite la contraseña y que si es palindroma entonces me ingrese al menu.. :(, perdona por el abuso, pero es que me cuesta mucho y no tengo a muchas amistades que me puedan ayudar...
GRACIAS.!

Bueno, sería algo así:

program p;
uses crt;

function Palindroma(Palabra:string;ind1,ind2:byte):boolean;
begin
if Ind1 >=Ind2 then
Palindroma:=true
else
Palindroma:=(Palabra[Ind1]=Palabra[Ind2]) and Palindroma(Palabra,Ind1+1,Ind2-1);
end;

function CheckPass:boolean;
var s:string;
begin
write('Contraseña: ');
readln(s);
CheckPass:=Palindorma(s,1,length(s));
end;

begin
if not CheckPass then
begin
writeln('Error de contraseña. Presione una tecla cualquiera.');readkey;
Halt;
end;
bla bla... hacemos lo que halla que hacer si es correcta...
end.

El Halt hace terminar el programa.

Claro que si lo que querés es ocultar la contraseña con asteriscos... bueno... es un poco largo. Si querés el código avisame.

MUCHAS GRACIAS!!!! AHORA SI ERES EXCELENTE!!!

Como hacer un programa que identifique si una palabra es palindroma o no y darle a la palabra de derecha a izquierda y viceversa