Изменения

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

var

i, c, l: integer;

writeln(perm[j](l), ' '); {выводим перестановку}

end;

end

else

writeln(perm[j](l), ' '); {выводим перестановку}

end;

end;

end;