Дано число.определить является ли оно простым. программа на паскале. напишите через while или repeat.заранее )

Var n,i: integer;
begin
 write('Введите целое число = ');
 readln(n);
 i:=2;
 while (n mod i <> 0) do i:=i+1;
 if i=n then writeln('Число ',n,' простое')
        else writeln('Число ',n,' не простое');
end.