Pascal/Turbo Pascal - RANDOM AYUDENME PORFAVOR URGENTE

necesito ayuda!!!
necesito llenar un vector con 4 numeros de forma aleatoria ¿¿como hago para que no se repitan????
logicamente llene mi vector con...
for i:= 1 to 4 do
a[i]:=random(10);
el problema esque para que no se me repitan use un repeat y como condicion de termino puse
until a[1]<>a[2] and a[1]<>a[3] and a[1]<>a[4] etc etc el problema esque se queda pegado
ALGUIEN ME PUEDE DAR UNA IDEA DE COMO HACER LO MISMO PERO DE MANERA Q RESULTE
GRACIAS

program numeros;
uses crt;
var
i:integer;
j:array[1..4]of integer;
resp:char;

procedure numeral;
begin
randomize;
repeat
for i:=1 to 4 do
begin
j[i]:=random(9);
end;
until (j[1]<>j[2]) and (j[1]<>j[3]) and (j[1]<>j[4]) and (j[2]<>j[3]) and
(j[2]<>J[4]) and (j[3]<>j[4]);
clrscr;
for i:=1 to 4 do
begin
write(j[i]);
end;
writeln;
end;

begin
repeat
numeral;
write('Desea obtener otro numero s/n?');
resp:= upcase(readkey);
until resp= 'N';
end.

saludos Pirulex...

Y por qué no llenais antes el vector
for indice1:=1 to 10 do VectorTodosNumeros[indice]
y ahora...
begin
for indice2:=1 to 4do
begin
aleatorio:=random(i)
numeroaleatorio[indice2]:=VectorTodosNumeros[aleatorio];
{ahora reestablecemos vector, menos el número que ha salido}
for indice3:=aleatorio to (10 -indice2) do
VectorTodosNumeros[indice3]:=VectorTodosNumeros[indice3+1]
indice1:=indice1-1
end
end
end

Llevo mucho sin programar en PASCAL porque me he pasado al C y puede que haya pequeños errores de sintaxis pero yo siempre que he necesitado algo así me evito tener que hacer bucles no muy bien definidos.
Un saludo

Si...
sucidate...
Es tu mejor opcion
Y agregame al msn
[email protected]