[Rqnoj-574][NOIP1998]连接多位数

连接多位数
字符串排序，很水~重点是：str(n:longint,s:string); 的用法。
代码：

var
   s:array[1..20] of string;
   tmp:string;
   n,i,j,tn:longint;
function big(a,b:string):boolean;
begin
     if a+b>b+a then big:=true else big:=false;
end;
begin
     readln(n);
     for i:=1 to n do begin
             read(tn); str(tn,s[i]);
         end;
     for i:=1 to n-1 do
     for j:=i+1 to n do
         if big(s[j],s[i]) then begin
            tmp:=s[i]; s[i]:=s[j]; s[j]:=tmp;
         end;
     for i:=1 to n do write(s[i]);
end.