Atsitiktiniai unikalūs skaičiai

Kaip paskalyje atvaizduoti 10 atsitiktinių unikalių skaičių masyve nuo 1 iki 10? (tarkim 5, 1, 3, 10, 7, 2, 6, 4, 8, 9)?

Tu uzmirsk ta pascali isvis.

Tame ir problema, kad aš jį užmiršau, bet namų darbus vis tiek reikėtų padaryti...

program atsitiktiniai;
type arr = array[1..10] of boolean;

 var viso, i, skaicius : integer;
  skaiciai : arr;
begin
 randomize;

 for i := 1 to 10 do
skaiciai[i] := false;

 viso := 10;
 while viso > 0 do
begin
  skaicius := random (10) + 1;
  if not skaiciai[skaicius] then
	begin
	  dec (viso);
	  Write (skaicius, ' ');
	  skaiciai[skaicius] := true;
	end;
end;

 Readln;
end.

program atsitiktiniai;
type arr = array[1..10] of boolean;

 var viso, i, skaicius : integer;
  skaiciai : arr;
begin
 randomize;

 for i := 1 to 10 do
skaiciai[i] := false;

 viso := 10;
 while viso > 0 do
begin
  skaicius := random (10) + 1;
  if not skaiciai[skaicius] then
	begin
	  dec (viso);
	  Write (skaicius, ' ');
	  skaiciai[skaicius] := true;
	end;
end;

 Readln;
end.

Jau išsisprendžiau problemą, bet vis tiek dėkui, kad nepraėjai pro šalį. :rolleyes: