Értékadás a függvény nevének

Hibás megoldás:

type Ttomb = array[1..10]of integer;
...

function Osszeg(t: Ttomb): integer;
var i: byte;
begin
  Osszeg := 0;
  for i := 1 to 10 do
    Osszeg := Osszeg + t[i];   {Az Osszeg szerepeltetése a jobboldalon rekurzív hívás,  }
end;                           {ami mind szintaktikailag (hiányzik a paraméter) mind szemantikailag hibás.} 

Jó megoldás:

type Ttomb = array[1..10]of integer;
...

function Osszeg(t: Ttomb): integer;
var i: byte;
    ossz: integer;
begin
  ossz := 0;
  for i := 1 to 10 do
    ossz := ossz + t[i];
  Osszeg := ossz;
end;