Pascal/Turbo Pascal - Necesito ayuda en un progra

{Esto es el menú}

 uses

     crt;

procedure menu;

  var

    sal : boolean;

    tecla : char;

   begin

      sal := false;

    repeat

        clrscr;

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

        writeln;

        writeln('   1 =  lo que deseas ejecutar');

        writeln('   2 =  lo que deseas ejecutar');

        writeln('   3 =  lo que deseas ejecutar');

        writeln('   4 =  lo que deseas ejecutar');

        writeln('   5 =  lo que deseas ejecutar');

        writeln('   6 =  lo que deseas ejecutar');

        writeln('   7 = Salir');

        writeln;

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

        repeat

            tecla := readkey;

        until tecla in['1','2','3','4','5','6','7'];

        clrscr;

     case tecla of

  '1' : procedimiento o funcion;

  '2' : procedimiento o funcion;

  '3' : procedimiento o funcion;

  '4' : procedimiento o funcion;

  '5' : procedimiento o funcion;

  '6' : procedimiento o funcion;

  '7' : sal := true;

    end;

    until sal = true;

   end;

  begin

  end.