Bom dia pessoal, estou com um problema em um projeto da facul, preciso fazer que o programa apresente os seguintes menu com a opção para retornar para o anterior e menu principal. O problema é o seguinte, ao digitar a opção 1( OP1) ele avança normal, ao digitar a opção 'C' ( OP2) ele retorna ao menu principal, tudo ok, depois avançando para o menu seguinte digitando ' A' (OP2) , tudo funciona normalmente, porém depois que ele retorna ao menu anterior digitando 3 (OP3) e tentando retorna logo em seguida ao menu principal, ele não volta, ou seja ele não retorna ao menu principal apos ter passado pelo 2º submenu. se puderem me ajudar agradeço muito.
varvarop1,op3:integer; {declaração de variaveis}CM,METROS,LITROS,MILI:real;op2:CHAR;LOOP1:string; Begin REPEAT//REPEAT DO SUB MENU PARA O MENU PRINCIPAL CLRSCR; gotoxy(22,1);write ('--------------------------------------'); gotoxy(22,2);write ('| Conversor |'); gotoxy(22,3);write ('| |'); gotoxy(22,4);write ('| |'); gotoxy(22,5);write ('| 1-Conversor de Medidas |'); gotoxy(22,6);write ('| 2-Conversor de Moedas |'); gotoxy(22,7);write ('| 3-Conversor de Peso |'); gotoxy(22,8);write ('| 4-Sair do Programa |'); gotoxy(22,9);write ('| |'); gotoxy(22,10);write('| Digite a Opção desejada: |'); gotoxy(22,11);write('--------------------------------------'); gotoxy(53,10); readln(OP1); CASE OP1 OF 1:BEGIN REPEAT//REPEAT SUBMENU 2 PARA SUBMENU 1 CLRSCR; gotoxy(22,1);write ('--------------------------------------------------'); gotoxy(22,2);write ('| CONVERSOR DE MEDIDAS |'); gotoxy(22,3);write ('| |'); gotoxy(22,4);write ('| A- MÉTRICAS |'); gotoxy(22,5);write ('| B- VOLUMÉTRICAS |'); gotoxy(22,6);write ('| C- VOLTAR AO MENU PRINCIPAL |'); gotoxy(22,7);write ('| |'); gotoxy(22,8);write ('| Digite a Opção desejada: |'); gotoxy(22,9);write ('--------------------------------------------------'); gotoxy(55,8);readln(op2); UNTIL OP3<>3 //REPEAT DO SUB MENU END;//END OP1 1 4:BEGIN GOTOXY(35,20);WRITELN (' BYEE'); EXIT; END; END;//END CASE OP1 UNTIL OP1=4 //REPEAT DO MENU INICIALEnd.