Ada Programming/Keywords/while