динамические переменные(delphi)

[sergi]

решите пожайлуста задачу
const d=...; {длина строки}
n=...; {максимальное число строк}
type строка=string[d];
ссылка=^строка;
текст=array[1..n] of ссылка;
(Если в тексте менее n строк, то последние элементы массива равны NIL; в начале массива ссылок NIL не должно быть. Если в операции над текстом указан номер отсутствующей строки, т.е. элемент массива с этим номером равен NIL, то такая операция не выполняется).
Описать функцию числострок(Т), для подсчёта числа строк в тексте Т.

[RomiKon]

ну дык

function числострок(var T: Текст): Integer;
var
  i: Integer;
begin
  Result:=0;
  for i:=1 to n do
    if T[i] <> NIL then Result:=Result+1;
end;

[sergi]

А если можно, поподробнее пожайлуста