Buenas, no creo que esto te sirva ya que pasaron muchos años de tu pregunta, pero puede que le sea util a alguien que la tenga el día de hoy.
Existe un algoritmo recursivo capaz de determinar si un numero de cualquier cantidad de cifras es o no capicúa, y es el siguiente:
program capicuaRecursivo;
function capicuaR(x,y,n:longint):boolean;
begin
x:=(x*10) + (n mod 10);
n:=n div 10;
if x=y then capicuaR:=true
else
if n=0 then capicuaR:=false
else capicuaR:=capicuaR(x,y,n);
end;
var
x,y:longint;
begin
x:=0;
writeln('Ingrese un numero para saber si es capicua: ');
read(y);
if capicuaR(x,y,y) = true then writeln('Es capicua')
else writeln('No es capicua');
end.
Espero que le sirva a alguien. Saludos!