ejercicio 33 procedimientos y funciones

PROGRAM capicua (input,output);
var
numero,i,j:integer;
FUNCTION capicua (numero,i,j:integer):boolean;
BEGIN
IF i<>j then begin
IF (numero mod i)= (numero div j) then begin
capicua:=capicua(numero,i*10,j div 10 );
capicua:=true;
end
else
capicua:=false;
end
else
capicua:=true;
END;
FUNCTION contador (numero:integer):integer;
var
cont,x:integer;
BEGIN
cont:=10;
while numero>10 do begin
x:=numero div 10;
cont:=cont*10;
end;
contador:=cont;
END;

BEGIN
i:=10;
j:=contador(numero);
write('escribe un numero:');
readln(numero);
IF capicua(numero ,i,j)=true then
writeln('el número es capicua')
else
writeln('el número no es capicua');
END.