Υλοποίηση σε Pascal

Παράδειγμα:
program list;

type
    intList = ^intListElem;

    intListElem = record
        val : integer;
        next : intList;
    end;


var
    theList, node : intList;

begin
    new(node);
    node^.val := 5;
    node^.next := nil;
    theList := node;

    new(node);
    node^.val := 12;
    node^.next := theList;
    theList := node
end.