好吧，答案：
var n,i,j:longint;
a:array[1..1000]of string;
s,t:string;
begin
readln(n);
for i:=1 to n do
begin
read(j);
str(j,a[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
begin
s:=a[i];
t:=a[j];
if s+t>t+s then
begin
a[i]:=t;
a[j]:=s;
end;
end;
for i:=1 to n do
write(a[i]);
end. ( 2014/5/14 13:27:10 )
要P1111的答案的戳进来！！！
PJ
