Изменения

Пусть нам известен код Грея для длины $n - 1$, записанный в массив из строк $sperm[i](j)$, где $i$ - номер перестановки , а $j$ номера элементов перестановок(номерация начинается с единицы, элементы разделены пробелами). При этом переменная $t = true$, $j = 1$, а $k$ является новым элементом:

str: string; i, c: integer;

str for l := k + ' ' + s[j]; n - 1 downto 1 do {записываем элемент n в начало строки} perm[j](l + 1) := perm[j](l); perm[j](1) := n; for l := 1 to n do writeln(strperm[j](1), ' '); {выводим перестановку}

c := strperm[2 * j](i + 1]); {меняем элементы местами и выводим каждую новую перестановку} strperm[2 * j](i + 1] ) := strperm[2 * j](i + 3]1); strperm[2 * j](i + 3] 1) := c; for l := 1 to n do writeln(strperm[j](1), ' '); {выводим перестановку}

str := sperm[j] + ' ' + k(n) := n; {записываем элемент n в конец строки} for l := 1 to n do writeln(strperm[j](1), ' '); {выводим перестановку}

c := strperm[2 * j](i + 1]); {меняем элементы местами и выводим каждую новую перестановку} strperm[2 * j](i + 1] ) := strperm[2 * j](i + 3]1); strperm[2 * j](i + 3] 1) := c; for l := 1 to n do writeln(strperm[j](1), ' '); {выводим перестановку}