объясните пожалуйста, как сделать, чтобы из процедуры множество передавалось в основную программу.

type
  TSet = set of byte;

procedure GetSet(var s: TSet); // передаем параметр по адресу
begin
// работаетм со можеством/изменяем его
  s := [3, 2];
end;

// в основной части программы

var
  MySet: TSet;

begin
  MySet := [];
  GetSet(MySet); //  теперь MySet == [3, 2]
end.

Это имела в виду ?

да! спасибо!!!