用PASCAL语言实现三个数从大到小排列并输出

var
a,b,:integer;
begin
readln(a,b,c)
if a<b then begin d:=a;a=b;b:=d; end;
if b<c then begin d:=b;b:=c;c:=d; end;
if a<c then begin d:=a;a:=c;c:=d; end;
writeln(a,' ',b,' ',c);
readln;
end;

var
a:array[0..3] of longint;
i,j:integer;
begin
for i:=1 to 3 do read(a[i]);
for i:=1 to 3 do
for j:=i+1 to 3 do
if a[i]<a[j] then
begin a[0]:=a[i];a[i]:=a[j];a[j]:=a[0];end;
for i:=1 to 3 do write(a[i],' ');
end.

我的程序不仅能对三个数进行排序，而且能对500000个数进行排序。
首先输入一个数N，表示有N个数（你的要求的话就是输入3）
然后输入N个数后加回车就是了。
基本思路就是快速排序。

program sort_Hewr;

const
maxn=500000;

var
a:array[0..maxn]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