如何用pascal语言编写程序把一个三位整数358颠倒成853？

这个是将三位整数颠倒输出的
Program Invert;
Var a:integer;
Begin
readln(a);
writeln(a mod 10,a div 10 mod 10,a div 100);
End.
下面这个程序是无论输入什么都全部颠倒的
Program Invert;
Var s,a:string;
i:integer;
Begin
Readln(s);//读入数据
a:=s;
For i:=1 to Length(s) Do s[i]:=a[length(s)-i+1];//颠倒
Writeln(s);
End.

program turn;
var
i,j:integer;
begin
read(i);
j:=i mod 10*100; {获取个位数，转成百位数}
j:=j+i mod 100 div 10*10; {获取十位数，转成十位数}
j:=j+i div 100; {获取百位数，直接累加}
write(j);
end.

var a,b,c,s:integer;
begin
readln(s);
a:=s mod 10;
c:=s div 100;
b:=(s-c*100) div 10;
writeln(a*100+b*10+c);
end.

用回溯算法即可。