Jak połączyć funkcję z tablicą?

Hej, załóżmy, że mam taką funkcję...
function taka_funkcja:real;
a w funkcji mam taki wynik:

tab[1]:=0;
tab[2]:=1;
tab[3]:=2;

jak zatem mam wyświetlić tą funkcję, żeby wyświetlone zostały wszystkie elementy tablicy?

{$mode objfpc}
type realarray=array of real;

function taka_funkcja:realarray;
begin
   SetLength(Result,3);
   Result[0]:=0;
   Result[1]:=1;
   Result[2]:=2;
end;

function inna_funkcja(const tb:realarray):real;
var I:Integer;
begin
   Result:=0
   for I:=0 to Length(tb)-1 do Result:=Result+tb[I];
end;

begin
   WriteLn(inna_funkcja(taka_funkcja));
end.