clone of 2048 written in object pascal / lazarus