Дано простое число составить функцию которое будет находится следующие за ним простое число — Pascal(Паскаль)

function getSimple(offset : integer) : integer;
var
  s, i : integer;
  found : boolean;
begin
  s := offset;
  found := false;
  while not found do begin {перебор следующих за заданным чисел}
    found := true;
    inc(s);
    for i := 2 to s -1 do begin { поиск делителей }
      if s mod i = 0 then begin { делитель найден }
        found := false;
        break;
      end;
    end;
  end;
  Result := s;
end;