Можно ли процедуре передавать множество?

  1 type
  2         setx=set of byte;
  3 procedure addset(a:setx; b:integer);
  4 var
  5         i:integer;
  6         j:byte;
  7 begin
  8         for i:=1 to b do begin
  9                 j:=random(124-12)+12;
 10                 write (j,', ');
 11                 a:=a+[j];
 12         end;
 13 writeln('');
 14 end;
 15 var
 16         set1, set2: setx;
 17         i:integer;
 18         j:byte;
 19 begin
 20         randomize;
 21         set1:=[];
 22         addset(set1,12);
 23         (*for i:=1 to 12 do begin
 24                                    j:=random(124-12)+12;
 25                                     write (j,', ');
 26                                     set1:=set1+[j];
 27                               end;
 28 
 29 *)
 30         writeln('Первое множество: ');
 31         for i:=12 to 124 do begin
 32                         if i in set1 then
 33                 write(i,', ');
 34 
 35         end;
 36 end.

procedure addset(VAR a:setx; b:integer);
  4 var
  5         i:integer;
  6         j:byte;
  7 begin
  8         for i:=1 to b do begin
  9                 j:=random(124-12)+12;
 10                 write (j,', ');
 11                 a:=a+[j];
 12         end;
 13 writeln('');
 14 end;