Pascal/Turbo Pascal - Codigo de diseño de menu

{Esto te valdría}

 program unmenu;

   uses

      crt;

   const

      archivo : string = 'Temporal.dat';

  type

     registro = record

           nombre : string[80];

           Apellidos : string;

           telefono  : longint;

           direccion : string;

        end;

  var

    tecla : char;

    reg : array[1..20] of registro;

    h, cont : integer;

    f : file of registro;

  procedure entrada_datos(c : integer);

  begin

     writeln;

     writeln('    entrada_datos [ Pulse Una Tecla ]');

     readkey;

  end;

  procedure guardar_registros(r : registro);

  begin

     writeln;

     writeln('   guardar_registros  [ Pulse Una Tecla ]');

     readkey;

  end;

  procedure carga_registros;

  begin

      writeln;

      writeln('   carga_registros  [ Pulse Una Tecla ]');

      readkey;

  end;

  procedure presenta_registros;

  begin

     writeln;

     writeln('   presenta_registros [ Pulse Una Tecla ]');

     readkey;

  end;

  procedure anula_registro;

  begin

     writeln;

     writeln('   anula_registro  [ Pulse Una Tecla ]');

     readkey;

  end;

   procedure presentar_un_registro;

   begin

     writeln;

     writeln('   presentar_un_registro  [ Pulse Una Tecla ]');

     readkey;

   end;

 procedure menu;

  var

    sal : boolean;

   begin

      sal := false;

      cont := 1;

    repeat

        clrscr;

        writeln('  ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');

        writeln('  ³   **** Menu Jeneral ****     ³Û');

        writeln('  ³                              ³Û');

        writeln('  ³ E =  Entrada Registro        ³Û');

        writeln('  ³ G =  Guardar Registros       ³Û');

        writeln('  ³ C =  Cargar Registros        ³Û');

        writeln('  ³ P =  Presentar Registros     ³Û');

        writeln('  ³ A =  Anular Un Registro      ³Û');

        writeln('  ³ B =  Buscar Un Registro      ³Û');

        writeln('  ³ S =  Salir                   ³Û');

        writeln('  ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ');

        writeln('   ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÛ');

        writeln;

        writeln('      <<<< Elija Opcion >>>>');

        repeat

            tecla := upcase(readkey);

        until tecla in['E','G','C','P','A','B','S'];

        clrscr;

     case tecla of

  'E' : entrada_datos(cont);

  'G' : begin

         writeln('   Guardando Datos ');

         for h := 1 to cont - 1 do

         guardar_registros(reg[h]);

         delay(120);

         for h := 1 to 20 do

         fillchar(reg[h],sizeof(registro),0);

        end;

  'C' : carga_registros;

  'P' : presenta_registros;

  'A' : anula_registro;

  'B' : presentar_un_registro;

  'S' : sal := true;

    end;

    until sal = true;

   end;

   begin

      menu;

   end.