一组数组判断回文数（PASCAL）

读入一个数判断是不是回文数
var s:longint;
function aa(a:longint):boolean;
var c:array[1..10] of integer;
b,s,j,k,i:integer;
begin
b:=a;
i:=11;
while a>0 do
begin
i:=i-1;
c[i]:= a mod 10;
a:=a div 10;
end;
j:=0;
for k:=10 downto i do
j:=j*10+c[k];
if j=b then
aa:=true
else aa:=false;
end;
begin
read(s);
write(aa(s));
end.

很简单啊,许多书上都有,偶是懒得敲代码了..你可以自己找书去

var s:string;
i:longint;
begin
readln(s);
for i:=1 to length(s) div 2 do
if s[i]<>s[length(s)-i+1] then begin
writeln('No!');
halt;
end;
writeln('Yes!');
end.

program No;
var a:array[1..10000] of integer;
i,s,s1,n:integer;
bz:boolean;
begin
write('请输入一个数:');
readln(s);
s1:=s;
n:=0;