Programme en Ada sur les nombres premiers !

Bonjour,

J'ai essayé de faire un programme qui verifie si un nombre que l'on entre dans le programme est un nombre premier ou non. (pour info il faut pour ca, diviser le nombre choisi par tous les entiers allant de 2 à sa racine carrée)
Voila le code :

with ada.text_IO;use ada.text_IO;
with ada.float_text_IO;use ada.float_text_IO;
with ada.integer_text_IO;use ada.integer_text_IO;
with Ada.Numerics.Elementary_Functions;use Ada.Numerics.Elementary_Functions;
procedure premiers is
	reste:integer;
	nombre_premier:float;
	X:float;	
begin
 loop
   put("Donnez moi un nombre et je vous dirais s'il est premier : ");
   get(nombre_premier);
   put(integer(nombre_premier)); --"integer" sert à enlever la puissance de 10 à l'affichage du nombre--
   X:=SQRT(nombre_premier);	
    for i in 2..integer(X) loop
     reste:=integer(nombre_premier) rem integer(i);
     exit when reste/=0; --ne fonctionne pas pour les multiples de 5 et pour le chiffre 9, pourquoi ?--
     put(" : non ce nombre n'est pas premier");
    end loop;
     put(" : oui ce nombre est bien un nombre premier"); --je cherche à retirer cette phrase lorsque le nombre n'est pas premier--
   new_line;
   new_line;
 end loop;
end premiers;

Mes soucis sont :
- J'aimerai comprendre et essayer de trouver une solution puisque ce programme ne marche pas avec les multiples de 5 et le chiffre 9 (plusieurs tentatives).
- Et j'aimerai lorsque le nombre n'est pas premier, retirer la phrase "oui ce nombre est bien premier"

Merci de votre aide !!