输入一个四位正整数先分离出该整数每一位数字，然后用分离出数字组成一个四位最大数和一个最小数位数没限

//By Free Pascal

var
q:array[1..4] of byte;
procedure init;
var
i:integer;
c:char;
begin
for i:=1 to 4 do
begin
read(c);
q[i]:=ord(c)-48;
end;
end;
procedure m;
var
i,j,k:integer;
begin
for i:=1 to 4 do
for j:=i+1 to 3 do
if q[j]>q[i] then
begin
k:=q[j];
q[j]:=q[i];
q[i]:=k;
end;
write('Max=');
for i:=1 to 4 do
write(q[i]);
writeln;
while q[4]=0 do
begin
for i:=3 downto 1 do
if q[i]<>0 then
begin
k:=q[4];
q[4]:=q[i];
q[i]:=k;
end;
end;
write('Min=');
for i:=4 downto 1 do
write(q[i]);
end;
begin
init;
m;
end.