Как получить набор уникальных комбинаций к примере 4 из 20 ? и можно ли это сделать в pascal abc или в другой программе ?

Var a,i:integer;
begin
  for i:= 1 to 4 do begin 
    a:=random(1,20); 
    write(a,' ');
  end;
end.