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

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