работа с кольцевым списком, плз надо срочно Опции

[-гость-]

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

[volvo]

Так... НУ, и что именно не выходит? Я же тебе уже давал создание R-списка, ты что думаешь, тут ВСЁ за тебя будут решать? Ошибаешься. Сам думать начинай...

[Гость]

Код

procedure poisk(r:ptr);
var w,e:ptr;
begin
w^.info:=r^.info;
   repeat
   if w^.info<>r^.link^.info then r:=r^.link
    else
      begin
        e:=r^.link;
        r^.link:=e^.link;
        dispose(e);
      end;
until (r=top) or (r^.link=top);

while r=top do poisk(r^.link);
end;