RosettaCodeData/Task/Priority-queue/Pascal/priority-queue-2.pas

type
  TComparer<T> = function(const L, R: T): Boolean;