Pascal连用随机数

赞成LS的，不过我的程序也是十分精简，可读性强。
program ranqsort_Hewr;

var
a:array[0..1000]of longint;
n,i:longint;

procedure qsort(x,y:longint); //快速排序（其实这里你用其他的也没关系）
var
i,j,k:longint;
begin
i:=x;
j:=y;
k:=a[(x+y) shr 1];
repeat
while a[i]<k do inc(i);
while a[j]>k do dec(j);
if i<=j then begin
a[0]:=a[i];
a[i]:=a[j];
a[j]:=a[0];
inc(i);
dec(j);
end;
until i>j;
if x<j then qsort(x,j);
if i<y then qsort(i,y);
end;

begin
randomize; //初始化随机函数。
n:=random(1000)+1; //n为1~1000中的随机数。
for i:=1 to n do a[i]:=random(100000)+1; //生成数列。
qsort(1,n); //快速排序。
writeln(n); //输出个数。
for i:=1 to n do write(a[i],' '); //输出排序后的数列。
writeln;
end.

把你的程序贴出来吧，产生随机数和排序都是很简单的事情，你看我自己写的，肯定没有看我修改的你自己写的好