// PascalABC.NET 3.4.2, сборка 1806 от 30.09.2018
// Внимание! Если программа не работает, обновите версию!
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.