Function Premier (rework)

Function premier (x:longint): Boolean;
Var i,nb: longint;
Begin
    nb:=0;
    for i:=1 to x  Do
        if  x mod i = 0 Then nb:=nb+1;
    premier:=nb=2;
End;