Изменения

procedure grey_code(t: boolean; j: integer);

var

begin

if j <= (n - 1)! then {условие выхода из рекурсии}