IF的排列组合.... ( 积分: 50 )

输入一个三位数的整数，将数字位置重新排列，组成一个尽可大的三位数。例如：输入 213，重新排列可得到尽可能大的三位数是321。

搞定了....
program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
num,tmp:Integer;
bai,shi,ge:Integer;
begin
Readln(num);
bai:= num div 100;
shi:= (num - bai * 100) div 10;
ge := num - bai*100 - shi*10;

IF (BAI<SHI) THEN
BEGIN
TMP:=SHI;
SHI:=BAI;
BAI:=TMP;
END;

IF (BAI<GE) THEN
BEGIN
TMP:=GE;
GE:=BAI;
BAI:=TMP;
END;

IF (SHI<GE) THEN
BEGIN
TMP:=GE;
GE:=SHI;
shi:=TMP;
END;

num:=bai*100+shi*10+ge;

Writeln(num);
Readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.

干脆来个 N位数字的数 变成最大的数。。
使用LENGTH 先判断下长度 接下来就好做了

按位分解然后排序