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

[Dunkel_L]

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

[volvo]

Ты меня конечно извини, но твоя программа у меня вообще не работает (даже не добавляет элементы)... И ошибки очень грубые:
1)

procedure Push(n:string);
var w1,w2:ptr;
begin
  new(w1);
  w1^.info:=n;
  w2^.link:=w1^.link; { <-- Вот это что значит??? }
  w1^.link:=top;
  top:=w1;
end;

Чему по-твоему равно W2 там где я показал, и какое право ты имеешь обращаться к полю неинициализированного указателя?

2)

procedure vid(w1:ptr);
begin
  if (w1<>w2) then { <--- Здесь !!! }
    begin;
      vid(w1^.link);
      write(w1^.info,' ')
    end;
end;

Что ты делаешь в выделенной строке? Турбо Паскаль не позволяет производить с указателями никаких действий, кроме сравнения с nil... Сравнения адресов между собой - это в 32-битных компиляторах (а так как для них есть специальный раздел, а ты создал тему здесь - то твоя программа неправильна, и в TP работать если и будет - то некорректно)...

Исправляй.