Random Number - Easy?

number1 := randomrange(1,11);
number2 := randomrange(1,11);
number3 := randomrange(1,11);
number4 := randomrange(1,11);
number5 := randomrange(1,11);
number6 := randomrange(1,11);
number7 := randomrange(1,11);

repeat number1:= randomrange(1,11) until number1 <> number2 or number3 or number4 or number5 or number6 or number7;
repeat number2:= randomrange(1,11) until number2 <> number1 or number3 or number4 or number5 or number6 or number7;
repeat number3:= randomrange(1,11) until number3 <> number1 or number2 or number4 or number5 or number6 or number7;
repeat number4:= randomrange(1,11) until number4 <> number1 or number2 or number3 or number5 or number6 or number7;
repeat number5:= randomrange(1,11) until number5 <> number1 or number2 or number3 or number4 or number6 or number7;
repeat number6:= randomrange(1,11) until number6 <> number1 or number2 or number3 or number4 or number5 or number7;
repeat number7:= randomrange(1,11) until number7 <> number1 or number2 or number3 or number4 or number5 or number6;

var
	intarray: array[1..10] of integer;
	i : integer;
	index, temp: integer;
	number1, number2, number3, number4,
	number5, number6, number7		: integer;
begin
	// Init the random number generator
	Randomize;
	// First set the initial values of intarray
	for i := 1 to 10 do
		intarray[i] := i;

	// Now shuffle the array
	for i := 1 to 10 do
	begin
		// Pick a random array index
		index := random(9) + 1;
		// Now exchange the elements
		temp := intarray[index];
		intarray[index] := intarray[i];
		intarray[i] := temp;
	end;

	// Now read the first few elements of this shuffled array:
	number1 := intarray[1];
	number2 := intarray[2];
	number3 := intarray[3];
             ...
	number7 := intarray[7];
end;