ADA - Generar combinacion aleatoria con arrays

Buenas. Tengo que hacer un MasterMind en ADA, y para ello necesito generar una combinacion inicial de 4 numeros(en vez de usar colores, hay que hacerlo con numeros). No os pido que me resolvais el ejercicio, porque sino nunca aprenderé nada :P pero si os pido que me diesen una ayuda para generar la combinacion inicial de los 4 numeros.

Muchas gracias

yo de momento tengo esto:

with ada.text_io, ada.integer_text_io;
use ada.text_io, ada.integer_text_io;

-- programa principal

procedure PRACTICA3 is

type TColores is array(1..4) of TNumeros;
type TNumeros is array(0..9) of integer;
numero1,numero2,numero3,numero4: integer;

--modulo para leer los colores ( o sease, los numeros que introduce el usuario)

procedure leerColores(n: out integer) is
begin
get(n);
while n < 0 or n > 4 loop
put("numero incorrecto. Introduce un numero entre 1 y 4");
get(n);
end loop;
end leerColores;

-- Programa principal

begin
put("Introduce una combinacion de 4 numeros del 1 al 4");
leerColores(numero1);
leerColores(numero2);
leerColores(numero3);
leerColores(numero4);
end PRACTICA3;

Sé que aun me faltan cosas, pero necesito saber como generar las combinaciones :)

No sabes? Lástima...por que a mi me pasa el mismo problema wiki asi que haber si alguien nos ayuda por que estamos mas perdidos... jaja