Як можна створити анімацію місяця на Паскалі?

Є готова програма тільки там показується становлення місяця за чотирнадцять днів. Від молодика до повного місяця, з затримкою в 1500 мілісекунд. А ось зворотного ходу на жаль немає. Исходник програми можна подивитися на цій сторінки.