https://dropcode.ru/thread/kak-otkryt-fail-dlia-chteniia-v-pascal