Написать процедуру на Delphi

Добрый день!

Нужна процедура из области комбинаторики.

Задача: 

На вход подается число n.

Нужно построить массив единичек и ноликов))

К примеру: n = 3

На выходе:

001

010

011

100

101

По моему это называется "кодами Грея". Но нужно исключить массивы 111 и 000 из результирующих.

Т.е. на выходе мы будем иметь {2 в степени "2" минус 2} массивов.

Для n = 4 мы будем иметь 14 массивов:

0001

0010

0011

0100

0101

0110

0111

...

 и т.д.