Вон вверху добавил код. Пощелкай. А потом поменяй линки на первом хабе.
Шутка.
------------ Дoбавленo в 11.22:
с этим я видимо ошибся.
просто в функциях не работают "напрямую" с const ХХХ, а везде сначала делают а:=ХХХ и потом работают с а