Initialize with aggregate?

[ejijott@gmail.com]

Hi there!

Regarding the code below, what syntax do I use to initialize tempstore
with an aggregate?
[code]
.
.
.
    type node;
    type storage is access node;
    type node is
        record
            next:  storage;       -- Pekare till nästa nod.
            item:  string(1..50); -- En textsträng
            len:   integer :=-1;  -- Längden på strängen.
            count: integer := 0;  -- Antalet förekomster av strängen
        end record;
.
.
.
        tempstore:=new Node;
        tempstore.item(1 .. Val'length):=Val;
        tempstore.len:=Val'length;
        tempstore.count:=1;
        if S /= null then
            tempstore.next:=S;
        end if;
        S:=tempstore;
[/code]