用freepascal编程 输入一个三位数的整数,将数字位置重新排列，组成一个尽可能大的三位数.例如输入213，重

Answer 1

program make;
var a:array[1..3] of char;i,j:integer;t:char;
begin
for i:=1 to 3 do read(a[i]);
for i:=1 to 2 do
for j:=1 to 3-i do
if a[j]<a[j+1] then
begin
t:=a[j];
a[j]:=a[j+1];
a[j+1]:=t;
end;
for i:=1 to 3 do write(a[i]);
writeln;
end.

Answer 2

program p35;
var a,b,c,x,y,z:integer;
begin
readln(x);
a:=x mod 10;
b:=(x mod 100) div 10;
c:=x div 100;
for z:=1 to 6 do
begin
if b>a then
begin
y:=b;
b:=a;
a:=y;
end;
if c>a then
begin
y:=c;
c:=a;
a:=y;
end;
if c>b then
begin
y:=c;
c:=b;
b:=y;
end;
end;
writeln(a,b,c);
readln;
end.