Дан одномерный массив из целых чисел от 1 до 52, заполнить случайными значениями — Pascal(Паскаль)

uses crt;
var i,j:integer;
    a:array [1..52] of byte;
    m:set of byte;
begin
m:=[];
for i:=1 to 52 do 
 begin
  repeat
  a[i]:=random(52)+1;
  until (not a[i] in m);
  m:=m+[a[i]];
 end; 
for i:=1 to 52 do
writeln(a[i]);
readln
end.