рекурсивный алгоритм через динамическую библиотеку о попе и его собаке. Delphi

[Ericnex]

Как реализовать рекурсивный алгоритм через динамическую библиотеку в ходе выполнения которого на экран выводится сообщение о попе и его собаке.
алг О собаке( арг цел н) // н-число рассказов
нач
если н>0 то
нц 500 раз кц // пауза
вывод нс, "Как это было"
вывод нс, "У попа была собака - он ее любил"
вывод нс, "Она съела кусок мяса - он ее убил"
вывод нс, "Убил и закопал на могиле написал"
О Собаке (н-1) // рекурсивный вызов алгоритма
все
кон

Сама прога сделана просто не могу через DLL сделать