From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00,FREEMAIL_FROM
	autolearn=unavailable autolearn_force=no version=3.4.4
X-Received: by 10.107.47.7 with SMTP id j7mr17850755ioo.31.1520476404127;
        Wed, 07 Mar 2018 18:33:24 -0800 (PST)
X-Received: by 10.157.14.124 with SMTP id n57mr1282137otd.3.1520476403939;
 Wed, 07 Mar 2018 18:33:23 -0800 (PST)
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!feeder.eternal-september.org!paganini.bofh.team!weretis.net!feeder6.news.weretis.net!feeder.usenetexpress.com!feeder-in1.iad1.usenetexpress.com!border1.nntp.dca1.giganews.com!nntp.giganews.com!r195no365123itc.0!news-out.google.com!a25ni1042itj.0!nntp.google.com!e10no523524itf.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Wed, 7 Mar 2018 18:33:23 -0800 (PST)
In-Reply-To: <1aac45bf-2baf-4ca5-9cb5-07e1748ff6b4@googlegroups.com>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com;
 posting-host=2a02:1206:45c6:8b20:6436:ad6b:48bf:4ab9;
 posting-account=gRqrnQkAAAAC_02ynnhqGk1VRQlve6ZG
NNTP-Posting-Host: 2a02:1206:45c6:8b20:6436:ad6b:48bf:4ab9
References: <1aac45bf-2baf-4ca5-9cb5-07e1748ff6b4@googlegroups.com>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <e5dcb6fe-ef6b-4cf2-989d-9790c113e5aa@googlegroups.com>
Subject: Re: Trouble translating a C++ data-structure.
From: gautier_niouzes@hotmail.com
Injection-Date: Thu, 08 Mar 2018 02:33:24 +0000
Content-Type: text/plain; charset="UTF-8"
Xref: reader02.eternal-september.org comp.lang.ada:50891
Date: 2018-03-07T18:33:23-08:00
List-Id: <comp.lang.ada>

The Wikipedia page refers to an article ("Design and implementation of an efficient priority queue", https://link.springer.com/article/10.1007%2FBF01683268) which contains a program in Pascal. I would go this way, using p2ada.
Here is an example of an algorithm taken straight from an article (scanned!):
https://unzip-ada.sourceforge.io/za_html/zip__adb.htm#17_11