Циклический список, вставка, удаление, печать списка Опции

[Jill]

ПЛЗ!!!
помогите, пожалуйста!!!
шарилась по инету - по циклическим спискам не могу найти описаловку процедур вставки, удаления и печати!!! а литературы вообще нет...

еще бы среднее арифметическое найти, но с этим я справлюсь...

[volvo]

Ну, например, вот так:

Type
  PItem = ^TItem;
  TItem = Record
    Data : Integer;
    Next : PItem;
  End;
...
Var Ring: PItem;

Begin
  Ring := new(PElement);
  With Ring^ Do Begin
    Data := 0; next := Ring; { <--- уже "закольцовано" }
  End;
  ...
End.

После этого значение = 0 в списке использоваться НЕ ДОЛЖНО...