pascal：将n个整数连成一个最大的整数

就是数据排序。

只是我的代码有些长。

思路：把输入的数字的第一个数提取出来，进行排序，然后输出排序后的原数据。

const
maxn=100;
var
s:string;
n,code,i:word;
d,inp:array[1..maxn]of word;
procedure swap(var a,b:word);
var
tmp:word;
begin
tmp:=a;
a:=b;
b:=tmp;
end;
procedure QuickSort(l,r:word);
var
a,b,tmp1,mid:word;
begin
a:=l;
b:=r;
mid:=d[(l+r) div 2];
while d[a]>mid do inc(a);
while mid>d[b] do dec(b);
if a<=b then
begin
swap(d[a],d[b]);
swap(inp[a],inp[b]);
inc(a);
dec(b);
end;
if l<b then QuickSort(l,b);
if a<r then QuickSort(a,r);
end;
begin
readln(n);
for i:=1 to n do
begin
read(inp[i]);
str(inp[i],s);
val(s[1],d[i],code);
end;
QuickSort(1,n);
for i:=1 to n do write(inp[i]);
writeln;
end.

用A数组记录原来的数
用B数组记录