[M.A.D.M.A.N.]

Код:

 procedure foo(i: integer);
Begin
Foo(i-1);
If i = 0 then exit;
End;

При рекурсии передавать счетчик, внутри на минус\полюс один передавать.