Сгенерировать 5 неповторяющихся случайных целых чисел из интервала от 1 до 45. это работа с множествами Pascal ABC

program n_2;var  i:integer;  a:array [1..5] of integer;begin  randomize;  for i:= 1 to 5 do    a[i]:=random(44)+1;  for i:= 1 to 5 do    writeln('a[i]=',a[i]);end.

тут интервал 45 есть

1) Где работа со множествами? 2) Что гарантирует неповторяемость сгенерированных чисел? Короче, неверное решение.