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

Function simpl(n: integer): boolean;
var i,k: integer;
begin
   i:=2;
   k:=round(sqrt(n));
   while ((n mod i)lt;gt;0) and (ilt;=k) do   
   i:=i+1;
   simpl:=(igt;k)
end;
// главная программка
var n: integer;
begin
  write('обычное число: ');  readln(n);
  repeat
    n:=n+1;
  until simpl(n);
  writeln('последующее обычное: ',n);
end.

обычное число: 119
последующее обычное: 127