Если элемент массива четный, то прибавить к нему первый элемент, а если нечетный - последний.

for i:= 2 to n - 1 do
if a[i] mod 2 = 0
then a[i]+= a[1]
else a[i]+= a[n];

const
  n = 10;
 
var
  a: array [0..n] of integer;
 
begin
  for var i := 0 to n do Readln(a[i]);
  for var i := 1 to n - 1 do
    if a[i] mod 2 = 0 then Inc(a[i], a[0]) else Inc(a[i], a[n]);
end.

begin
  var a := ArrRandom(ReadlnInteger('Длина:'), -50, 50); a.Println;
  a := a.Select((v, i) -> (i = 0) or (i = a.Length - 1) ? v : v mod 2 = 0 ? v + a.First : v + a.Last).ToArray;
  a.Println;
end.

var
  a: array [0..10] of integer;
 
begin
  for var i := 0 to 10 do Readln(a[i]);
  for var i := 1 to 9 do
    if a[i] mod 2 = 0 then Inc(a[i], a[0]) else Inc(a[i], a[n]);
end.

var
  a: array [0..10] of integer;
 
begin
  for var i := 0 to 10 do Readln(a[i]);
  for var i := 1 to 9 do
    if a[i] mod 2 = 0 then Inc(a[i], a[0]) else Inc(a[i], a[n]);
end.

Value+=a;//9 символов
Inc(Value,a);//13 символов
Inc(Value);//10 символов , предполагая что a = 1