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

[Dunkel_L]

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

[Dunkel_L]

Код

procedure pe(p:ptr);
var
  q:ptr;
  T: string;
begin
  q := p;
  while
{(p <> nil ) недолжно быть :(}
  (p =  q) and (p^.link <> q) do begin
    T := p^.info;
    p^.info := p^.link^.info;
    p^.link^.info := T;

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

Тогда меняются местами только последнии два эл-та.



Насчет 1) так по лекциии создается кольцевой список
2) мы сравниваем и после этого выводим на экран


Насчёт 32 битных компеляторов незнаю, мы работаем в обычном Borland Pascal 7.0
Вот так