Procedure Print_Ring (pBegin: PtrRec);
    Var pAux : PtrRec;
 Begin
   pAux := pBegin^.pNext;         {Исключим из рассмотрения заглавное звено} 
   If pAux <> pBegin
     Then
       Begin
             {Пока текущий указатель не совпадает с началом списка...} 
         While pAux <> pBegin do 
           Begin
             Write (pAux^.Element:5);
             pAux := pAux^.pNext;
           End;
         WriteLn;
       End
   Else WriteLn ('Список пуст...')
 End;