Дано простое число найти следующее за ним простое число паскаль

Function simpl (n: integer) : boolean;

var i, k: integer;

begin

i:=2;

k:=round (sqrt (n)) ;

while ((n mod i) 0) and (i<=k) do

i:=i+1;

simpl: = (i>k)

end;

/ / основная программа

var n: integer;

begin

write ('простое число: ') ; readln (n) ;

repeat

n:=n+1;

until simpl (n) ;

writeln ('следующее простое: ', n) ;

end.

простое число: 119

следующее простое: 127