Pascal/Turbo Pascal - Como hacer un Menu en pascal

hola ando necesitando un ejemplo sencillo de como hacer un programa con un menu principal que contenga (1-altas y 2-bajas 3-salir ) se hacer el de altas me falta el menu y la baja. el menu supongo que se hara con un case o un if pero necesitaria un ejemplo para comprenderlo. La idea es hacer 2 procedimientos o funciones de altas y bajas. y desde el menu llamarlos.

muchas gracias de antemano.

Ya me salio el menu principal pero tengo otro problemita cuando estoy en ALTAS que ingreso desde el menu principal, no se como hacer para poner una opcion al final para volver al MENU PRINCIPAL les poste el codigo que hice hasta ahora.

No hace falta. Cuando termine el procedimiento debería regresar al menú, lo que sucede es que no tienes el mecanismo en el menú principal para hacer eso. Esto es lo que deberías hacer:

var
opcion:char;
begin
repeat
clrscr;
writeln('--------Menu Principal---------');
writeln('-------1- Altas--------');
writeln('-------2- Salir--------');
readln(opcion);
case opcion of
'1': altas;
'2': exit;
end;
until opcion = '2';
end.

El repeat se ejecuta hasta que el usuario elije la opción 2, de forma tal que si ha elegido la 1, luego de ejecutar altas, regresa de nuevo al principio.

Ah verdad ahora me di cuenta muchas gracias master.

Yo si puedo regresar al menu pero al volver a preguntar cual opcion elegir no acepta el numero dos
les dejo el codigo para ver si me pueden ayudar GRACIAS!!



PROGRAM Menu;


USES CRT;

VAR
Opcion, si: Char;
acumulador, numero: integer;
Total, Dolar, peso: Real;
diastrans, faltan: integer;




BEGIN

CLRSCR;
REPEAT
Acumulador:= 0;
Writeln (' 1.- Coventertir peso a dolar ');
Writeln (' 2.- Convercion de Tiempo ');
Writeln (' 3.- ');
Writeln (' 4.- ');
Writeln (' 5.- ');
Writeln (' 6.- ');
Writeln (' 7.- ');
Writeln (' 8.- ');
Writeln (' 9.- ');
Writeln (' 10.- ');
Writeln (' 11.- ');
Writeln (' 12.- ');
Writeln (' 13.- ');
Writeln (' 14.- ');
Writeln (' 15.- ');
Writeln (' 16.- ');
Writeln (' 17.- ');
Writeln (' 18.- ');
Writeln (' 19.- ');
Writeln (' 20.- ');
Writeln ('Elige una OPCIàN');
Readln (opcion);

Case opcion OF



'1': Writeln ('Has elegido la opcion 1')
End;
Writeln ('Introduce el valor de el dolar');
Read (dolar);
Writeln ('Introduce la cantidad de pesos a convertir');
Readln (peso);
total :=(peso/dolar);
If total <0 then total:= total;
Writeln ('Los dolares que tienes es ', Total:0:2);
Writeln (' ¨Deseas regresar al menu?(s/n);');
Readln (si);
Until si = 'n';
Writeln ('Fue un placer atenderte');

BEGIN


'2':Writeln ('Has Elegido la opcion 2);
Writeln ('Escribe los dias que han transcurrido');
Readln (diastrans);
Faltan:= 365-diastrans;
If (faltan <365) then
Writeln (' Los d¡asque faltan son ', Faltan);
End.