Изменения
→Пример генерации сочетаний из N элементов по M в лексикографическом порядке
begin
a[l] = k;
if l = m then<проверка на требуемый размер объекта>
begin
for j = 1 to m do write(a[j], ' ');<вывод объекта>
writeln;
end else for i = k + 1 to n do rec(i, l + 1);<>
end;