Pascal/Delphi Alguém sabe como eu faço pra voltar para o menu?

[Abbaab DiCabra]

É um programa de registro, eu queria poder voltar ao menu depois de cadastrar o cliente mas o programa finaliza, nao sei como eu faço

E se quiserem apontar outros erros fiquem a vontade

Program Pzim ;

Type TipoRegistro = Record
		 	compra, total:integer;
     	vet: array [1..4] of integer;
    	nome: string;		
			end;
Var
Clientes : array [1..100] of TipoRegistro;
opcao, indice, repet, i, indicebusca: integer;
achar: boolean;
Begin
	indice:= 1;
	opcao:= 0;
	writeln('--- Cadrasto de clientes ---');
	writeln('[1] Cadastrar cliente');
	writeln('[2] Pesquisar cliente');
	writeln('[3] Listagem de cliente');
	read(opcao);
	if (opcao=1) then
begin
	if (indice<=100) then
begin
	clrscr;
	writeln('Para cadastrar o cliente, digite o nome do usuário');
	readln(Clientes[indice].nome);
	writeln('Agora digite o o valor das 4 compras');
begin
	readln(Clientes[indice].vet[1]);
	readln(Clientes[indice].vet[2]);
	readln(Clientes[indice].vet[3]);
	readln(Clientes[indice].vet[4]);
	Clientes[indice].total:=Clientes[indice].vet[1]+Clientes[indice].vet[2]+Clientes[indice].vet[3]+Clientes[indice].vet[4];
	writeln('Cliente cadastrado, tecle enter para sair');
	writeln(Clientes[indice].total);
	indice:=indice+1;
	readln;	
end;
end;
end;
	if (opcao=2) then
	begin
	clrscr;
	achar:=false;
	writeln('Digite o nome do cliente');
	read(Clientes[indice].nome);
	for i:=1 to indice do 
	begin
	if (Clientes[indice].nome=Clientes[i].nome) then
	begin
	achar:=true;
	indicebusca:= 1;
	end;
	end;
	if achar=true then
	begin
	writeln('O Valor das quatro compras é de: ' , Clientes[indicebusca].vet[1], ' ' , Clientes[indicebusca].vet[2], ' ' , Clientes[indicebusca].vet[3], ' ' , Clientes[indicebusca].vet[4] );
	writeln('A soma dos valores é de ' , Clientes[indicebusca].total );
	writeln('Tecle enter para sair');
	readln;
	end
	else
	begin
	write('Cliente não cadastrado ');
	writeln('Tecle enter para sair');
	readln;
	end;
	if (opcao=3) then
	clrscr;
	writeln('As informações do cliente são: ');
	writeln(Clientes[indicebusca].vet[1], Clientes[indicebusca].vet[2], Clientes[indicebusca].vet[3], cLientes[indicebusca].vet[4] );
	writeln(Clientes[indice].total);
	writeln(Clientes[indice].nome);	
end;
	writeln('Tecle enter para sair');
readln;	
End.

 

[AdrianoSiqueira]

Coloque o código dentro de um laço de repetição.

[Abbaab DiCabra]

@AdrianoSiqueira tentei varias vezes e todas ficaram em um loop

como eu faço isso?

 

[AdrianoSiqueira]

Tutorials Point