Расчет численности популяции

[MyVLink]

Исследовать измение численности популяции во времени... не какой канкретной популяции не задоно... По методу популяция разбита на возростные группы,у каждой группы есть свой коэффициэнт рождаемости... смертност упрощенно считать в n группе... Возникли проблемы при передвижении возростных групп... Йа задал их масивом,а как дальше предвигать номера групп?

[evg_m]

type rec=record
....
col: integer; // численность группы
end;
Prec=^rec;
var
mas: array of Prec;

n:=length(mas);
if mas[n]^.сol>0 then setlength(mas,n+1) else dispose(mas[n]^);
n:=length(mas);
for j:=n downto 1 do begin
mas[i]:=mas[i-1];
end;
mas[0]:=new(rec);
mas[0]^.col:=0;

С указателями почти не работал и в синтаксисе почти наверняка ошибки

[Vedrus]

Что-то типа этого? Моделирование жизни акул и рыб (см. файл во вложении)