求pascal大牛帮忙

我知道是多关键字排序，但为什么最后一个点过不去呢？

var
  i,j,m,n,k,p:longint;
  sum,chi,num:array[0..10000]of longint;
procedure qs(l,r:longint);
var
  i,j,x,a1,a2,a3:longint;
begin
  i:=l; j:=r;
  x:=(l+r) div 2;
  repeat
    while (sum[i]>sum[x])or
    ((sum[i]=sum[x])and(chi[i]>chi[x]))or
    ((sum[i]=sum[x])and(chi[i]=chi[x])and(num[i]<num[x])) do inc(i);
    while (sum[j]<sum[x])or
    ((sum[j]=sum[x])and(chi[j]<chi[x]))or
    ((sum[j]=sum[x])and(chi[j]=chi[x])and(num[j]>num[x])) do dec(j);
    if not(i>j) then
      begin
        a1:=sum[i]; sum[i]:=sum[j]; sum[j]:=a1;
        a2:=chi[i]; chi[i]:=chi[j]; chi[j]:=a2;
        a3:=num[i]; num[i]:=num[j]; num[j]:=a3;
        inc(i); dec(j);
      end;
  until i>j;
  if i<r then
    qs(i,r);
  if l<j then
    qs(l,j);
end;
begin
  readln(n);
  for i:=1 to n do
    begin
      readln(chi[i],k,p);
      sum[i]:=chi[i]+k+p;
      num[i]:=i;
    end;
  qs(1,n);
  for i:=1 to 5 do
    writeln(num[i],' ',sum[i]);
end.