Решить : формирование списка из n элементов добавление элемента а после второго максимального удаление повторяющегося второй раз максимального элемента если такого нет ничего не удалять выполнить сортировку списка по убыванию.после каждой операции, выводить результат на экран
begin
var L := ReadSeqInteger('Вводите:', ReadInteger('N=')).ToList;
L.Println; // исходная
var k := L.OrderDescending.Skip(1).First; // после чего вставить
var A := ReadInteger('Что вставляем?');
L.Insert(L.IndexOf(k) + 1, A);
L.Println; // после вставки
k := L.Max;
var ai := L.ToArray.IndexesOf(t -> t = k).ToArray;
if ai.Count > 1 then
begin
L.RemoveAt(ai[1]);
L.Println; // после удаления, если оно было
end;
L := L.SortedDescending.ToList;
L.Println // после сортировки
end.