https://ruclips.ru/en/watch/yB3tUsNyxyM/learning-pascal-x24-introduction-to-object-orientation