Стеки, очереди

[Fischer]

Здравствуйте. Прошу помочь с решением следующей задачи:

Используя очередь, решить задачу.
TYPE имя = (Анна,..., Яков);
дети = АRRAY[имя, имя] OF BOOLEAN; потомки = FILE OF имя;
Считая заданным имя И и массив Д типа дети (Д [ X, Y ] = TRUE, если человек по имени Y является ребенком человека по имени X), записать в файл П типа потомки имена всех потомков человека с именем И в следующем порядке: сначала - имена всех его детей, затем - всех его внуков, затем - правнуков и т.д.

Заранее спасибо