объясните пожалуйста, как сделать, чтобы из процедуры множество передавалось в основную программу.
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.