Pascal/Turbo Pascal - Ayuda con Programa utilizando Random

Hola mi nombre es Edy, estudio programacion y tengo un gran problema, y es que me asignaron un programa en Pascal utilizando Randomize, bueno es asi : es un programa que lanza 20 numero aleatoriamente, pero que no se repitan nigunos, por ejemplo de 100 numeros el programa tiene que seleccionar 20 numeros aleatoriamente pero que no se repitan nigunos. Por ayuda con este programa... Please........

var cant,x,numero:integer;
aNumeros:array [1..20] of integer;
fAgregar:boolean;
begin
Randomize;
cant:=0;
While cant<=20 do {Finaliza cuando genera 20 numeros}
Begin
numero:=random(25); {Genera numeros entre 0 y 25}
fAgregar:=true;
If cant<>0 then {Verifica que no sea el primer numero generado}
For x:=1 to cant do {Verifica que no este entre los numeros ya generados}
If numero = aNumeros[x] then
fAgregar:=false;
{Si no esta generado todavia agrega el numero a un vector que contiene
los numeros ya generados y se lo imprime en pantalla}
If fAgregar = True then
Begin
Inc(cant);
aNumeros[cant]:=numero;
Writeln(numero);
end;
end;
readkey
end.