在PP/DEMO文件夹中找的~~
program quicksort;
const max=10;
var data:array [1..max] of longint;
    i:longint;
procedure qsort(l,r:longint);
var i,j,x,y:longint;
begin
  i:=l;
  j:=r;
  x:=data[(l+r) div 2];
  repeat
    while data[i]<x do
      inc(i);
    while x<data[j] do
      dec(j);
    if i<=j then
    begin
      y:=data[i];
      data[i]:=data[j];
      data[j]:=y;
      inc(i);
      j:=j-1;
    end;
  until i>j;
  if l<j then qsort(l,j);
  if i<r then qsort(i,r);
end;
begin
  randomize;
  writeln('First:');
  for i:=1 to max do
  begin
    data[i]:=random(max);
    write(data[i],' ');
    if (i mod 10)=0 then writeln;
  end;
  qsort(1,max);
  writeln('Last:');
  for i:=1 to max do
  begin
    write(data[i],' ');
    if (i mod 10)=0 then writeln;
  end;
end.