Дан массив . о пределить номер первого и последнего отрицательных элементов . вычислить сумму этих элементов в паскале

begin

 var R := ArrRandom(20, -50, 50);

 R.Println;

 var i := R.IndexesOf(t -> t < 0);

 Println(i.First + 1, i.Last + 1);

 Println('Сумма равна', R[i.First] + R[i.Last])

end.

-9 41 -47 -25 22 -35 44 -2 -10 17 -17 -17 5 20 47 -43 3 -45 1 33

1 18

Сумма равна -54