Как в процедуру 1 передать адрес процедуры 2 через параметр чтобы процедура 1 выполнила процедуру 2

Зачем мне это нужно? Затем что написан вложеный цикл от 0 до N в нём цикл от 0 до M, в программе цикл используется десяток раз только с разными процедурами. Хочу цикл реализовать как процедуру с параметром адреса процедуры для выполнения.