Вставить в массив два числа после первого из отрицательных чисел

var
  A : array of Integer;
begin
  Write('Введите через пробел 14 целых чисел: ');
  SetLength(A, 14);
  for var i := 0 to 13 do
    Read(A[i]);
  ReadLn;
  
  WriteLn('Введён массив: ', A);
  
  var firstNegative := -1;
  for var i := 13 downto 0 do
    if A[i] < 0 then
      firstNegative := i;
   
  if firstNegative = -1 then
    begin
      WriteLn('Нет отрицательных чисел.');
      Halt;
    end;
    
  WriteLn('Введите два числа для вставки после первого отрицательного:');
  var N1 := ReadLnInteger('Первое =');
  var N2 := ReadLnInteger('Второе =');
  
  SetLength(A, 16);
  for var i := 13 downto firstNegative+1 do
    A[i+2] := A[i];
    
  A[firstNegative+1] := N1;
  A[firstNegative+2] := N2;
  
  WriteLn('Получен массив: ', A);
end.

var
  a:list<integer>;
  i:integer;
begin
  write('Введите массив:');
  a:=ReadString.Split(new string[1](' '),System.StringSplitOptions.RemoveEmptyEntries).Select((s:string)->strtoint(s)).Tolist;
  if (a.Where((j:integer)->j<0).LastOrDefault<0) then begin
    for i:=0 to a.Count-1 do 
     if a[i]<0 then begin
      a.Insert(i+1,10);{втрое число}
      a.Insert(i+1,20);{первое число}
      break;
     end;
    writeln('Новый массив ');a.Println;
  end else writeln('В массиве нет отрицательных элементов');  
end.

{$reference System.Core.dll}
uses
  System, System.Linq, Arrays, System.Collections.Generic;
  
type pair = KeyValuePair<integer, integer>;
var
  arr : array of integer;
begin
  write('Введите массив:');
  arr := ReadString.Split('  '.ToCharArray(), System.StringSplitOptions.RemoveEmptyEntries).Select(strtoint).ToArray();
  var first := arr.Select((i : integer, ix : integer) -> new pair(i, ix)).
    Where((p : pair) -> p.Key < 0).Select((p : pair) -> p.Value).DefaultIfEmpty(-1).FirstOrDefault();
  if first < 0 then writeln('В массиве нет отрицательных элементов')
  else
  begin
    var T := new integer[2](10, 20);
    arr := arr.Take(first + 1).Concat(T).Concat(arr.Skip(first + 1)).ToArray();
    writeln('Новый массив: '); arr.ToArray().Writeln(' ');
  end;
end.