Написать процедуру, которая вставляет в список L реальных чисел новыйэлемент E1

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

procedure ListInsert(var L:Listlt;realgt;;e,e1:real);
begin
  for var i:=L.Count-1 downto 0 do
    if L[i]=e then L.Insert(i+1,e1)
end;

begin
  var P:=new Listlt;realgt;;
  Writeln('Введите последовательность чисел, завершив её нулём');
  P.AddRange(ReadSeqRealWhile(a-gt;alt;gt;0));
  var what:=ReadReal('Что вставить?');
  var before:=ReadReal('После чего воткнуть?');
  ListInsert(P,before,what);
  Writeln('Итог:');
  P.Println
end.

Пример
Введите последовательность чисел, завершив её нулём
3.8 -6.2 1.45 2.18 -6.2 14 2.7 2.18 2.18 3.8 15.4 0
Что воткнуть? 0.0001
После чего воткнуть? 2.18
Результат:
3.8 -6.2 1.45 2.18 0.0001 -6.2 14 2.7 2.18 0.0001 2.18 0.0001 3.8 15.4