R-список, Нужна помощь Опции

[Dunkel_L]

Нужно написать процедуру в R-списе(info:string) (кольцевой список), которая меняет местами слова с четными номерами и нечетными (1-е со 2-м и т.д.)

[-Dunkel_L-]

В кольцевом списке недолжно быть указателя nil на поля ввода.А должен быть указатель на хвост(q).

Код

procedure pe(p:ptr);
var
  q:ptr;
  T: string;
begin
  q := p;
  while  (p^.link <> q) do begin
    T := p^.info;
    p^.info := p^.link^.info;
    p^.link^.info := T;

    p := p^.link^.link;
  end;
end;

Вот так попробовал но при выводе на экран вылетает.
Помоги.