[Pascal] Jak w Pascalu przypisać tablicy unikalne losowe liczby?

const tabl_low = 1;
const tabl_high = 10;
const rand_high = 100;

var tabl : array [tabl_low..tabl_high] of integer;
var counter : integer;
    subcounter : integer;
    randvalue : integer;

begin
  randomize;
  for counter := tabl_low to tabl_high do
   begin
    repeat
     randvalue := random(rand_high);
     for subcounter := tabl_low to counter-1 do
      if tabl[subcounter]=randvalue then
      begin
       randvalue := -1;
       break;
      end;
    until randvalue <> -1;
    tabl[counter]:=randvalue;
   end;


end.

const tabl_low = 1;
const tabl_high = 10;
const rand_low = 0;
const rand_high = 100;

var tabl : array [tabl_low..tabl_high] of integer;
var counter : integer;
    subcounter : integer;
    randvalue : integer;
    rand_ok : boolean;

begin
  randomize;
  for counter := tabl_low to tabl_high do
   begin
    repeat
     randvalue := random(rand_high+1)-rand_low;
     rand_ok := true;
     for subcounter := tabl_low to counter-1 do
      if tabl[subcounter]=randvalue then
      begin
       rand_ok := false;
       break;
      end;
    until rand_ok;
    tabl[counter]:=randvalue;
   end;


end.