Как это не при чем? У тебя же там цикл. Циклично вызываются процедуры doRandom и прочие дальше по цепочке, это и переполняет стек.