чё за наебалово, этот код хоть и рабочий, но компилер должен выдать варнинu, пусть автор варнинги включает, т.к. условие из
spikes = 1 + random(9);
if (spikes in [1..10]) then
part3
else
part2
никогда не перейдет в часть 2