Pascal/Turbo Pascal - pascal/ turbo pascal

hola mi nombre es araceli, y necesito saber como es el codigo fuente utilizando el randomize para un programa que de 10 preguntas tiene que seleccionar 5 aleatoriamente sin repetirse.. necesito la respuesta porfavor....

{A qui tienes un ejemplo ajusta lo a tus necesidades.


uses
crt;
var
n, nume : integer;
num : array[1..5] of integer;

procedure asignanum;
var
i, t : integer;
si : byte;
begin
randomize;
i := 1;
repeat
nume := random(11);
si := 0;
t := 1;
repeat
if num[t] = nume then
begin
si := 1;
end;
t := t + 1;
until (t > 5) or (si = 1);
if si = 0 then
begin
num[i] := nume;
i := i + 1;
end;
until i > 5;
end;

begin
clrscr;
asignanum;
for n := 1 to 5 do
writeln(num[n]);
readln;
end.