data := array(1,2,2,4);
ret := array();
n := 0;
for i := 0 to 5 do
begin
ret[n,'score'] := i;
for j,kind in array('rank','strict', 'weak','mean')do
begin
ret[n,kind] := percentileofscore(data,i,j);
end
ret[n,'percenrank'] := Percentrank(data,i);
n++;
end;
return ret;