Pascal/Turbo Pascal - Codigos de cuatro letras en free pascal

hola gente, como andan.
necesito de su ayuda.
tengo q escribir en FREE pascal un procedimiento q dado un codigo de 4 letras de la A a la F me largue el siguiente.
el encabezado seria:

const
PRIMERA_LETRA = 'A';
ULTIMA_LETRA = 'F';
LARGO_CODIGO = 4;

type
(* tipo de las letras válidas *)
TLetra = PRIMERA_LETRA..ULTIMA_LETRA;

(* estructura donde se guarda un código *)
TCodigo = array [1..LARGO_CODIGO] of TLetra;

procedure SiguienteCodigo(var codigo: TCodigo);

como codigo siguiente me refiero a:

codigo siguiente
AAAA AAAB
AAAF AABA
AFFF BAAA

no se si se entiende.. es como un cuenta kilometros solo q con letras de la A a la F...
agradeceria mucho su ayuda
GRACIAS
Pedro - Uruguay

HOLA, YA LO RESOLVI. SALU2 Y GRACIAS

PEDRO