É 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.