https://ruclips.ru/ru/watch/-2048TxhW8Y/learning-pascal-x27-how-to-create-a-class-hierarchy