I. Hola Yosi, por mi parte he visto la siguiente información, quizás resulte funcional.
http://www.lawebdelprogramador.com/codigo/Pascal-Turbo-Pascal/index6.html
https://translate.google.es/translate?hl=es&sl=pt&u=http://www.portugal-a-programar.pt/forums/topic/2958-pascal-verificar-se-um-n%25C3%25BAmero-%25C3%25A9-capicua/&prev=search
https://es.answers.yahoo.com/question/index?qid=20090209161153AApDBO2
https://www.youtube.com/watch?v=FtoTynXrMU4
https://translate.googleusercontent.com/translate_c?depth=1&hl=es&prev=search&rurl=translate.google.es&sl=en&sp=nmt4&u=http://stackoverflow.com/questions/34005540/writing-a-program-to-calculate-happy-numbers-in-pascal-stuck-with-an-infinite-l&usg=ALkJrhgAluVzVNKCXEVY7y2Q0rAN630tsg