Necesito ayuda para crear un programa que genere un random de letras (de la A a la U) y que no se repitan. Deben aparecer en un formato de de 3 columnas y 7 filas, aunque lo que más me interesa ahora mismo es el random, ya que al ejecutar el programa se repiten letras.
const
MAX_TARJETAS_GRUPO= 7; //Tarjetas por grupo
MAX_GRUPOS= 3; //Cantidad de grupos
MAX_TARJETAS= MAX_TARJETAS_GRUPO*MAX_GRUPOS; //Total de tarjetas.
MIN_TARJETA_VALOR= 'A'; //Tarjeta incial, en este caso letra A.
MAX_TARJETA_VALOR= chr(MAX_TARJETAS+ord('A')-1); //Tarjeta final.
type
tarjetas= MIN_TARJETA_VALOR..MAX_TARJETA_VALOR;
grupo= array[1..MAX_TARJETAS_GRUPO] of tarjetas;
mazo= array[1..MAX_TARJETAS] of tarjetas;
var
grupo1, grupo2, grupo3: grupo;
deck: mazo;
indice: char;
it1, it2, it3, j,h, i, opcion: integer;
letras: set of char;
begin
randomize;
writeln ('Bienvenida');
writeln;
for it1:= 1 to 3 do begin
writeln ('Secuencia ',it1,' de 3: ');
for i:=1 to MAX_TARJETAS do begin
deck[i]:= chr(random(ord(MAX_TARJETA_VALOR)-ord(MIN_TARJETA_VALOR)+1)+ord(MIN_TARJETA_VALOR));
writeln (deck[i]);
end;
end;
Gracias por vuestra ayuda.