Как в паскале писать падающую звездочку?

делаешь функцию, которая рисует звёздочки..
и при помощи рэндома пихаешь в разные точки экрана..
и там уже просто пикселями вниз падают..

чё там. uses crt. потом напиши как хочешь чтоб падала. ну и delay поставь))

Помню что было как-то так  line (300;200;450;150) , типо линия.