Используя датчик случайных чисел заполнить массив из 20 элементов неповторяющимися числами

Используя Паскаль:

var rndm: array[1..20] of longint;
 i,n1.n2,c : longint;

begin
 for i:=1 to 20 do rndm[i]:=i;
 for i:=1 to 100 do begin
  n1:=random(19)+1;
  n2:=random(19)+1;
  c:=rndm[n1];
  rndm[n1]:=rndm[n2];
  rndm[n2]:=c;
 end;
 for i:=1 to 20 do write (rndm[i],' ');
end.