https://dropcode.ru/thread/kak-sdelat-beskonechnyi-tsikl-v-pascal