快排问题

procedure qsort(h,t:integer);
var
p,i,j:integer;
begin
i:=h;
j:=t;
p:=a[i];
repeat
while (a[j]>p) and (j>i) do j:=j-1;
if j>i then
begin
a[i]:=a[j];
i:=i+1;
while (a[i]<p) and (i<j) do i:=i+1;
if i<j then
begin
a[j]:=a[i];
j:=j-1;
end;
end;
until i=j;
a[i]:=p;
i:=i+1;
j:=j-1;
if i<t then qsort(i,t);
if j>h then qsort(h,j);
end;

procedure qsort(l,r:integer);
var mid,t:longint;
begin
mid:=(r+l) div 2;
i:=l;j:=r;
repeat
while w[i]<w[mid] do inc(i);
while w[j]>w[mid] do dec(j);
if i<=j then
begin
t:=w[i];w[i]:=w[j];w[j]:=t; inc(i);dec(j) end;
until i>j;
if l<j then qsort(l,j);
if i<r then qsort(i,r);
end;

这有两个快速排序。
问题是:
1.为什么第2个只过4组数据。第一个都能过？
2.第2个有什么遗漏的地方？或者第一个有什么增加的地方？
注：这只是程序中的一个模块。经过调试，我发现错在快排上了，第一个是通过者的快排，

快排的问题?? C语言快排问题 怎么排战场快 pascal快排教程 C++快排的疑问 笔记本电脑排热问题 格子排数问题 排羊问题???急急。。。。。。。 数学错排问题 word 排板问题