有以下结构体说明和变量定义，如图所示，指针p、q、r分别指向一个链表中的三个连续结点。
type
ptr=^node;
node=record
data:integer;
next:ptr;
end;
var
p,q,r:ptr; data next data next data next
现要将q和r所指结点的先后位置交换，同时要保持链表的连续，以下程序段中错误的是( )。