La mia idea era la seguente:

codice:
var
cursore,intero,j,i:integer;

cursore:=8
  for j:=8 to 31 do
    begin 
      for i:=0 to 6 do
          intero:=intero+valore[cursore-i];
  valore[cursore]=intero\7;
  cursore:=cursore+1;
end;
Come lo trasformo in pl/sql?