pascal：求1~1000之间的绝对回文数

program hws;

var var shu:longint;
cd:integer;
a:array[1..10]of integer;

function chuli(shu:longint):longint;
var ws:integer;

begin
ws:=0;
while shu>0 do

begin
inc(ws);
a[ws]:=shu mod 10;
shu:=shu div 10;
end;

chuli:=ws;
end;

function panduan(cd:integer):integer;
var i,js:integer;

begin
js:=1;
for i:=1 to cd div 2 do
if a[i]<>a[cd-i+1] then

begin
js:=0;
break;
end;

panduan:=js;
end;

begin
shu:=1000;
for i:=1 to shu do
begin
cd:=chuli(i);
if panduan(cd)=1 then
write(i)
end;
end;

我是在Delphi7中写的 可能需要改一些语法 但是输出是正确的

program Palindrome;

{$APPTYPE CONSOLE}

function IsPalindrome(number: integer; status: integer): integer;
var