writeln (Head^.next^.sub^.next^.next^.next^.data);

Указатели - жуткая штука. При отладке проникаешься этим все больше и больше...