Нужно написать программу, вычисляющую срок жизни гидры Бухгольца. На вход программе подается дерево из скобок, и на его основании строится последовательность из деревьев по соответствующему алгоритму

вот пример модифицированной гидры Бухгольца на ruby:

s=->t{*v,u=t;t==1?[]:v<<s[u]}
r=->t{*v,u=t;$b=t[0][0]?$b:t;u==1?v<<s[$b]:u[0]?v+[r[u]]*$c:v}
$c=2
a=[],[[1],[]]
(print a,"\n";$c+=1;a=r[a])while a[0]
$c

Эта функция работает только с единицами и пустыми скобками

Желательно реализовать полную гидру, хотя перевода этой программы на паскаль (если это возможно) будет вполне достаточно.

Надеюсь, кто-нибудь сможет помочь

Вот тут можно почитать о алгоритме, по которому строится последовательность деревьев:
[Ссылки могут видеть только зарегистрированные пользователи. ]