Обновил программу
Поправляю
На всякий случай
Версии три, наверное, напилил Ираклия