procedure Example;
var Data: Vector;
  P, Pct: Array of double;
begin
  Data.LoadFromFile('c:tempExamplesDataPercentile.vec');
  SetLength(P,4);
  SetLength(Pct,4);
  Percentile(Data,P,Pct);
end;