Pascal - Erro ao retornar para o menu inicial

Programação
#1

O problema é simples mas nao estou conseguindo resolver… É o seguinte tenho tenho um codigo que verifica o cpf do cliente, quero que se o cpf não for encontrado ele volte para o Menu principal se ele for encontrado ele continua a cadastrar outras coisas

Begin
  Writeln('Digite o cpf do Usuario:');
  readln(pesq);
  indiciUsuario := Pesquisa(pesq);
  
	if(indiciUsuario > -1)then
  begin
    
 
writeln('Usurio encontrado! Fazer Emprestimo:');
   emprestimo:= emprestimo + 1;                           			 	  
	Writeln('Digite o nome do Cliente: ');
	readln(vetor_empresta[emprestimo].nome_cliente);
	Writeln('Digite o Cpf do Cliente: ');
	readln(vetor_empresta[emprestimo].cpf_cliente);
	Writeln('Digite o endereço do Cliente: ');
	readln(vetor_empresta[emprestimo].endereco_cliente);		
	Writeln('Digite o Telefone do Cliente ');
	readln(vetor_empresta[emprestimo].telefone_cliente);
	  end
	else
	begin
	writeln('Nenhum usuario encontrado com esse CPF!!!'); 
		 
		 Menu;
		 
	  
  end;

Algem pode me ajudar, por favor???