Cho N số nguyên dương a1, a2, , aN . Từ N số đã cho ta có thể tạo ra một số nguyên mới bằng cách ghép tất cả các số đã cho lại với nhau theo một trật tự nào đó. Chẳng hạn, với dãy gồm 4 số: 5; 9; 6; 2 ta có thể ghép thành các số: 5962; 5926; 5692; 5629; 6295; Yêu cầu: Hãy tìm số K lớn nhất trong các số tạo thành. Dữ liệu vào: có cấu trúc như sau: - Dòng đầu tiên ghi một số nguyên dương N (1 < N < 100). - Dòng tiếp theo ghi N số nguyên dương a1, a2, a3, , aN, trong đó tất cả các số đều không vượt quá 100 và mỗi số cách nhau một dấu cách. Dữ liệu ra: Ghi số nguyên K là số lớn nhất trong các số mới được tạo ra. pascal

Var a: array[1..100] of string;
    n,i: longint;
/////
procedure sort(l,r: longint);
      var
         i,j: longint;
         x,y: string;
      begin
         i:=l;
         j:=r;
         x:= a[(l+r) div 2];
         repeat
           while a[i]<x do
            inc(i);
           while x<a[j] do
            dec(j);
           if not(i>j) then
             begin
                y:=a[i];
                a[i]:=a[j];
                a[j]:=y;
                inc(i);
                j:=j-1;
             end;
         until i>j;
         if l<j then
           sort(l,j);
         if i<r then
           sort(i,r);
      end;
Begin
    Readln(n);
    For i:= 1 to n do Readln(a[i]);
    sort(1,n);
    For i:= n downto 1 do write(a[i]);
end.