Pascal | If statements and case statements