Ayuda en para programar en pascal

[SuNsHiNe]

Tengo una pregunta para una cosita en especial, si yo tengo un case que tiene 2 opciones y luego de entrar a una quiero salir y ir al menu nuevamante como hago??
Osea seria

h:=readkey; {h es una variable char previamente definida}
case h of
chr (49) {esto es para que cuando toques el 1(uno) pase lo que sigue}
begin

lO QUE SEA

end;
chr (50) {pa que lea el 2}

LO QUE SEA

end;

Yo tengo eso, o sea se me ocurrio poner un while sobre el case que diga mientras tal es igual a 1 hace lo de abajo y en el 1 y el dos la variable se hace 2 para que vuelva pero no funca...no entiendo como hacer por que cada vez que termino cada parte se sale o repite todo infinitas veces.
Si no se entiende doy mas explicacion.

Por favor si alguien sabe que me ayude, gracias anticipadas.
Edit:upts el titulo deberia decir "ayuda para programar en pascal" xD

[acha]

ehmm no entendi muy bien....si es lo que pienso agrega una tercer opcion mas que sea salir=true ponele....y haces un while(salir=false) que siga pidiendo el menu hasta que se elija la tercer opcion que pone salir en true y termine el while

sino es eso explicame mejor

[SuNsHiNe]

Es algo asi, a ver si me puedo explicar mejor.
Yo tengo un menu, en el menu hay dos opciones,
"1)ingresar datos" donde aparece el dibujo de una pieza y se ingresan sus respectivos datos
"2) calculos" donde aparecen respectivos calculos que se realizan con los datos ingresados anteriormente.
Entonces lo que yo quiero es que una ves que toco el 1 y aparecio la pantalla con la pieza luego de ingresar los datos pueda volver al menu, para poder elegir la otra opcion.

Ahora se entendio?, es dificil de explicar =S (gracias acha).

[judío ginger daywalker petiso]

el esquema en pcode es bastante simple...

salir = 0
hacer [[
mostrar menu
leer opcion
case opcion:
salir) salir = 1
ingresar datos) hacer lo de ingresar datos
calcular) hacer los calculos
]] hasta que salir = 1

si para salir tenes que calcular, entonces borrarias el caso "salir" y agregarias en el caso "calcular" que despues de hacer los calculos ponga salir en 1...

si te cuesta entender, intenta ayudarte con un diagrama de flujo...

K

[acha]

y cual es la condicion para salir del case? cuando ya hiciste los calculos? cuando vos quieras?

si es la opcion 2 lo que postie arriba pone una tercer opcion que sea salir

si es la opcion uno
ingresodatos=false
calculadatos=false
while ( ingresodatos==false and calculardatos==false)
case blabla (no recuerdi casi nada de pascal)l
1: funcion ingresar_ingresar_datos();
ingresodatos=true;
2:funcion calculardatos();
calculardatos=true;
fin case
fin while

si ingresas por la uno pide de nuevo el menu ya que no calculastes los datos todavia
si ingresaste por la 2 va a ir de vuelta al menu ya que no ingresaste los datos (en realidad si no ingresaste los datos la funcion calcular datos deberia devolver error ya que no puede calcular nada sino ingresastes datos pero bue no se como es el programa asi que ahi arreglate vos)
la unica forma de salir es que hayas pasado por los dos casos (sin importar el orden)

no habia leido lo de kkkkkk es valido tamb

[SuNsHiNe]

Creo que entiendo muchas gracias, ahora me lo pongo a hacer.

EDIT: YUPIIIII me salioooooooooooooo muchas gracias.

[jonathanbs]

jajajj t abien.. suerte