很诡异

一开始只过了1，2两个点

现在第二个点一直过不了，好郁闷

都交10+次了，谁帮我看看啊

program v1237;

var

k,n,i,j,x,y,xx,yy,z:longint;

p,pp,px,py,pxy,xy:real;

a:array[0..35000] of longint;

procedure quick_sort(h,t:longint);

begin

k:=random(t-h+1)+h;

x:=a[k];a[k]:=a[h];a[h]:=x;

x:=a[h];

i:=h;j:=t;

while i