Найти максимальный элемент кольца и удалить его

type
  tList = class
    V : Integer;
    P, X : tList;
    
    constructor (minV, maxV : Integer);
    begin
      V := Random(minV, maxV);
    end;
  end;
 
  tRing = class
    Cur : tList;
    Count : Integer;
    
    constructor (Size, minV, maxV : Integer);
    begin
      Count := max(Size, 0);
      if Count = 0 then
        Cur := nil
      else
        begin
          Cur := New tList(minV, maxV);
          var First := Cur;
          for var n := 2 to Count do
            begin
              Cur.X := New tList(minV, maxV);
              Cur.X.P := Cur;
              Cur := Cur.X;
            end;
          First.P := Cur; Cur.X := First;
        end;
    end;
    
    procedure Out(msg : String);
    begin
      Print(msg);
      var t := Cur;
      if Count = 0 then
        Print('пусто')
      else
        repeat
          Print(t.V);
          t := t.X;
        until t = Cur;
      WriteLn;
    end;
    
    function minVal : Integer;
    begin
      Result := Cur.V;
      var t := Cur;
      repeat
        if Result > t.V then Result := t.V;
        t := t.X;
      until t = Cur;
    end;
    
    procedure Delete(V : Integer);
    begin
      var t := Cur.P;
      while (Cur <> t) and (Cur.V <> V) do
        Cur := Cur.X;
      if Cur.V = V then
        begin
          t := Cur.P;
          Cur := Cur.X;
          t.X := Cur;
          Cur.P := t;
          Count -= 1;
        end
      else
        WriteLn('Значение ' + V + ' отсутствует в кольце.');
    end;
  end;
  
begin
  Randomize;
  var Ring := New tRing(
    ReadLnInteger('Количество элементов кольца:'),
    ReadLnInteger('Минимальное значение для генератора случайных чисел:'),
    ReadLnInteger('Максимальное значение для генератора случайных чисел:')
  );
  Ring.Out('Создано кольцо:');
  while Ring.Count > 0 do
    begin
      WriteLn('Минимальное значение кольца: ', Ring.minVal);
      Ring.Delete(Ring.minVal);
      Ring.Out('Кольцо:');
    end;
end.