Gabrielnit

Ai galera mais uma vez requisito a ajuda de vcs, to tentando fazer um programa em pascal que me diga o terceiro primo a partir de um numero inteiro digitado pelo usuário, até agora consegui fazer esse código abaixo mas ele só me diz o próximo primo a partir do número não estou conseguindo fazer com que ele me diga o terceiro primo. Ah se o número digitado for primo ele já conta como primeiro primo. desde já agradeço a ajuda.

Program Primo ;
var numero,origem,propri: integer;
   
function executa: boolean;
var x: char;
begin
  writeln ('Deseja continuar?(S/N) ');
  x:= readkey;
  if (x = 's') then
  executa := true
  else if (x='n') then
  executa := false
  else executa := executa;
end; 

function pededado: integer;
var x: integer;
begin
  write ('Informe um número: ');
  readln(x);
  if (x>=1) and (x<=100) then
  pededado := x
  else pededado:=pededado;
end;

function eprimo(numero: integer): integer;
var i: integer;
     primo: boolean;
begin

  primo := true;
  for i:=2 to (numero-1) do
  if (numero mod i) = 0 then
  primo := false;
  if primo=false then   
  eprimo:=eprimo(numero+1);
 
end;

Begin
  while executa do
begin
  clrscr;
  origem := pededado;
  numero:=origem;
  propri:=eprimo(numero);

  writeln ('O número ',origem,' tem como próximo primo o número: ',propri);
   
end;
End.

Fala galera, estou precisando de ajuda em um programa em pascal de pesquisa binária. O programa a ser feito é para o computador adivinhar um número inteiro no intervalo de 1 a 1.000.000 fazendo ao usuário no máximo 21 perguntas. To já várias semanas tentando resolver isso mas não saio do lugar, se alguém puder me ajudar agraedeço.
obrigado pela atenção.