Ссылки и Рекурсии

[AleksD]

1. Ссылки
Одно из возможных представлений "длинного" текста -- это разделить его на участки (строки) равной длины и создать массив ссылок на эти строки:
const
d=...; {длина строки}
n=...; {максимальное число строк}
type
stroka=packed array [l..d] of char;
ukazatel=^stroka;
tekst=array [1..n] of ukazatel;
(Если в тексте менее n строк, то последние элементы массива равны nil; в начале массива ссылок nil не должно быть. Если в операции над текстом указан номер отсутствующей строки, т. е. элемент массива с этим номером равен nil, то такая операция не выполняется.)
Используя данное представление текста, описать :

процедуру вывода (T), печатающую построчно текст T;

2. Рекурсии
type имя=(Алла,..., Юрий, нет);
Предполагая уже описанными функции Отец(х) и Мать(х),
значениями которых являются имена соответственно отца
и матери человека по имени х или идентификатор нет,
если отсутствуют свединия о соответствующем родителе,
описать логическую функцию Потомок( а,b ), проверяющую,
является ли человек с именеи b потомком (ребенком, внуком,
правнуком и т. п.) человека с именем а.

Помогите пжл решить эти 2 задачки.