Vet ej hur man ska få loopen att välja rätt i menyn. Språk: Ada

Hej, sitter med en uppgift i Ada där vi ska göra en miniräknare. Är på första steget där jag försöker göra menyn. 

Menyn ska ha 4 alternativ som användare ska kunna välja och om väljaren väljer någonting annat än dessa 4 så ska ett felmeddelande poppa upp och därefter ska användaren få välja igen. 

Jag trodde då att jag har gjort loopen rätt. Jag får felmeddelande när jag väljer Val < 1 och val > 4 men även när jag väljer 1,2,3,4  som jag inte vill få och jag förstår inte riktigt varför.