Дано некоторое натуральное число СН. Вывести на печать ближайшее к нему простое число. Pascal

function simp(var n: integer): boolean;var i,j: integer;    priz: boolean;begin  priz:=true;  i:=2;  j:=round(sqrt(n));  repeat    if (n mod i)=0 then    begin      priz:=false;      break;    end;    i:=i+1;  until i>j;  simp:=priz;end;{ основная программа }  var n: integer;begin  write('CH = ');  readln(n);  n:=n+1;  while not simp(n) do n:=n+1;  writeln('наименьшее простое число: ',n);end.