Динамический динейный кольцевой список Опции

[-Pascal-]

Программёры,подскажите плиз как удалить последний элемент динамического линейного однонаправленного кольцевого списка....

[Гость]

Вот такой тип данных

Код

ref=^z;
  z=record
   next:ref;
   el:string;
   end;

Вот так сформировал.....

Код

new(ring);ring^.next:=ring;cur:=ring;
  for i:=1 to n do begin
   new(cur^.next);cur:=cur^.next;
   readln(a);cur^.el:=a;
              end;
cur^.next:=ring;