Pascal题(用Turbo Pascal)数码排序

设有n个正整数,将它们连接成一排,组成一个最大的多位整数。例如:当n=3时,三个整数为13,312,343,连成最大整数为:34331213。
帮帮Me吧!
var
i,j,n:integer;
s:string;
a:array[0..100] of integer;
begin
read(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n-1 do
for j:=n downto i+1 do
if a[j-1]<a[j] then
begin
a[0]:=a[j-1];
a[j-1]:=a[j];
a[j]:=a[0];
end;
s=""判滚老;
for i:=1 to n do
s:=s+s;
writeln("连掘升成最大整备贺数为",val(s));
end.