Pascal程序 判断回文字符串、冒泡算法

判断输入的字符串是不是回文字符串，代码如下：

program huiwen(input,output);

var a:string;i,b,n:integer;

begin

read(a);

b:=length(a);

n:=0;

for i:=1 to b do

begin

if a[i]=a[b+1-i] then n:=n+1

end;

if n=b then write('Yes') else write('No');

readln;

end.

通过冒泡算法对输入的数字进行排序，代码如下：

program maopao(input,output);

var a:string;i,j,b:integer;n:char;

begin

read(a);

b:=length(a);

for i:=1 to b do

for j:=1 to b-i do

begin

if a[j]>a[j+1] then begin n:=a[j];a[j]:=a[j+1];a[j+1]:=n; end;

end;

write(a);

readln;

end.