https://ruclips.ru/en/watch/rzyiSW87xp0/learning-pascal-x26-saving-and-loading-objects