Fuentes de ejemplo para Free Pascal

(* Ejemplo basico en Pascal 4:
   Menu de opciones. Se elige pulsando
   el numero de una opcion. *)
 
program ej004;
 
const NUMOPCIONES = 5;
 
var opciones: array [1..NUMOPCIONES] of string =
 ('Primera opcion',
  'Segunda opcion',
  'Tercera opcion',
  'Cuarta opcion',
  'Quinta opcion');
 
var
  i: byte;
  tecla: char;
  codError: integer; { Para "val" }
 
begin
  writeln('Menu'); writeln;
 
  for i := 1 to NUMOPCIONES do
    writeln(opciones[i]);
 
  writeln; writeln('Que opcion?'); 
  readln(tecla);
 
  val(tecla, i, codError);
  if (codError <> 0) or (i < 1)
      or (i > NUMOPCIONES) then
    writeln('Opcion incorrecta')
  else
    writeln('Opcion escogida: ', i, '-', opciones[i]);
end.