Probleme sur les nombre premier.

Bonjour,
Étant donné que si un nombre n'a pas de diviseur entre 1 et sa racine, on dit qu'il est premier.Donc j'ai voulu partir de ce principe pour créer un programme qui dit si un nombre et premier ou non, et j'ai procéder comme ceci :

program premier;
var n:integer;
    i,y:real;
begin 
   writeln('Saisissez un entier');
   readln(n);
   for i:= 2 to (sqrt(n)) do
      if (n)mod(i) =0 then 
        writeln('le nombre n''est pas premier')
      else 
        writeln('le nombre est premier');
end
  

le souci c'est que a la compilation, ça m'affiche 'control variable type is not valid'.
Merci de votre aide.