https://minasoftprogrammation.blogspot.com/2022/11/CASE-Statement-in-Pascal.html