Linked List in ada

["kaak" <the_kaak@hotmail.com>]

I'm curious about linked lists and pointers in ada. I'm not sure exactly how
they work.

This is the code i have so far:

procedure insertRear(header:in out ptr; x: integer) is

        p: ptr;
        q: ptr;
BEGIN
        p = new node;
        p.key = x;
        q = header;

        loop:
                exit when q.next = null;
                if q.next then
                        q = q.next;
                else
                        exit;
                end if;
        end loop;

        q.next = p

I don't think the syntax is right with the pointers. and ideas?