Лампочка, Паскаль, LPT...

Доброго времени суток. Помогите с программой на Паскале. Работа со стендом "лампочки & кнопочки". На стенде имеется 8 диодов, необходимо реализовать попарное включение лампочек в бесконечном цикле. Т.е. загораются диоды 0 и 1, затем 1 и 2 и тд. Заранее благодарю за помощь.