Динамические переменные

[Likan15]

const d =...; {длина строки}
n=...', {максимальное число строк} type
строка = string[d];
ссылка= Астрока;
текст = аггау[1...n] of ссылка;
(Если в тексте менее N строк, то последние элементы массива равны NIL; в
начале массива ссылок NIL не должно быть. Если в операции над текстом
указан номер отсутствующей строки, т.е. элемент массива с этим номером
равен равен NIL, то такая операция не выполняется).
Описать и проверить логическую функцию Элем(T,i,j,с), проверяющую, есть ли в тексте Т строка номером i, и если есть, присваивающую j-ю литеру этой строки параметру с.


{$R *.dfm}
Const
d=....;
n=...;
Type
stroka=string[d];
ssilka=^stroka;
tekst=array[1..n] of ssilka;
Var
T:tekst;

[Utkin]

Обязательно использовать указатели? Существует куча механизмов - от динамических массивов до таких классов как TMemo, где все это легко решается.