кольцевой двунаправленный список на паскале

[gerda_best92]

Помогите написать задачу((не могу до конца разобраться
Дан кольцевой двунаправленный список слов, в конце стоит точка, найти и вывести все слова максимальной длины
Я не могу задать сам список((если бы был просто двунаправленный, было бы все хорошо(

[Merkator]

С кольцевым все тоже самое, просто первый элемент будет ссылаться на последний, а последний на первый.

[gerda_best92]

я это понимаю....реализовать не могу((

[Zer0]

покажите как создаете список, думаю тут же получите ответ как преобразовать его в кольцевой

[gerda_best92]

type list=^elem;
elem=record;
info:integer;
pred,next:list;
end;
var p,q,l:list;
x:integer;
begin
new(l); readln(x);
l.^info:=x; p:=l;
readln(x);
while x<>'.' do begin
new(q); q.^info:=x;
p.^next:=q; q.^pred:=p;
p:=q;
readln(x);
end;
Вот я создаю двунаправленный список....а вот в кольцевой не доходит, можете показать на примере задачи..хочу разобраться...
Например
дан кольцевой двунаправленный список слов, в конце точка, напечатать все слова максимальной длины.
Я не могу еще понять где вставлять переход p:=p^.next
Пожалуйста..очень нужно разобраться