回文数：12321　111 131是回文；123不是回文，回文数：即从左向右读或从右向左读是同一个数。
有几种方法可供选择，用字符串做比较简单，倒置后判断是否相同。
用数组的话只要从两头读起（即下标i从1和n开始）比较a[i]＝a[n-i+1]，一旦出现不同则可证此数不为回文。

可以用某个函数把数值转换成字符串然后按楼上的方法搞定，
或者参考以下的程序段

{a[] 是保存每个数位的数组，请自行定义}
n := 0;
while x > 0 do begin
  n := n + 1;
  a[n] := x mod 10;
  x = trunc(x/10);
end;