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

[Dunkel_L]

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

[volvo]

Вот тебе принцип работы с R-списком (меню добавишь сам):

type
  ttype = string;

  plist = ^tlist;
  tlist =  record
    info: ttype;
    next: plist;
  end;

var
  first, last: plist;

{ Печать кольцевого списка (без рекурсии) }
procedure print(p: plist); 
begin
  repeat

    write(p^.info, '':2);
    p := p^.next;

  until p = first;
  writeln;
end;

{ Добавление элемента в конец списка }
procedure append(x: ttype);
var p: plist;
begin
  new(p);
  p^.info := x;
  p^.next := nil;

  if first = nil then first := p
  else last^.next := p;

  last := p
end;

{ Та процедура, которая тебе нужна }
procedure change(p: plist);
var
  q: plist;
  is_first: boolean;
  T: ttype;
begin
  is_first := true;
  repeat

    if (is_first or (p <> first)) and (p^.next <> first) then begin
      T := p^.info;
      p^.info := p^.next^.info;
      p^.next^.info := T;

      p := p^.next^.next;
    end;
  until (p = first) or (p^.next = first);

end;



var
  X: ttype;

begin

  first := nil; last := nil;

  repeat

    write('next element (empty string to exit): '); readln(X);
    if X <> '' then append(X);

  until X = '';
  last^.next := first; { "Зацикливаем" список }

  write('list: '); print(first);

  change(first);

  write('list after: '); print(first);

end.