procedure ClearSet (var M : tSet);
var x: integer;
begin {vytvoreni mnoziny}
for x:=0 to K do New(M[x]); {vytvoreni dynamickeho pole}
ClearSet(M);
end;
a co tak kdyby si mnela uzavrenou rekurzii.
procedure ClearSet (var M : tSet);
var x: integer;
begin {vytvoreni mnoziny}
for x:=0 to K do
begin
New(M[x]); {vytvoreni dynamickeho pole}
ClearSet(M);
end
end;