partition

{$loadlib pumbaa.dll}

var
  TIA: TIntegerArray;
  ATIA: T2DIntegerArray;

begin
  pp_TIAByRange(10, 20, TIA);
  WriteLn('TIA: ' + pp_ToStr(TIA));
  pp_Partition(TIA, pm_ByAmount, 5, ATIA);
  WriteLn('ATIA: ' + pp_ToStr(ATIA));
  SetLength(ATIA, 0);
  pp_Partition(TIA, pm_BySize, 5, ATIA);
  WriteLn('ATIA: ' + pp_ToStr(ATIA));
end.