pascal Разбор примера управления сценой: переход от функции к процедуре