помогите, пожалуйста!!!
шарилась по инету - по циклическим спискам не могу найти описаловку процедур вставки, удаления и печати!!!

еще бы среднее арифметическое найти, но с этим я справлюсь...
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.