Программа , которая заполняет матрицу размером 6×6 рандомными числами от 1 до 36 так, чтобы каждое чисто встречалось только 1 раз — Pascal(Паскаль)

var
 a:array[1..6,1..6] of byte;
 s:set of byte;
 i,j,bt:byte;
begin
s:=[];
randomize;
for i:=1 to 6 do
 for j:=1 to 6 do
  begin
  repeat
  bt:=random(36)+1;
  until not (bt in s);
  s:=s+[bt];
  a[i,j]:=bt;
  end;
  
  for i:=1 to 6 do
  begin
    for j:=1 to 6 do
    begin
    write(' ');
    write(a[i,j]);
    end;
  writeln();
  end;
    
end.