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