https://dropcode.ru/thread/kak-ob-iavit-peremennuiu-v-pascal