Дан массив целых чисел. Для каждого элемента с четным индексом найти и вывести его первую и последнюю цифры

procedure Proc(a: array of integer);
begin
  a.Where((v, i) -> i mod 2 = 0).Select((v, i) -> Format('{0}: {1}-{2}{3}',
    i, v.ToString.First, v mod 10, NewLine)).Println;
end;
 
begin
  var a := ArrRandom(ReadlnInteger('Длина:'), 1000, 9999).Println.ToArray;
  Proc(a);
end.

type Z=record
        a,b:char;
       end; 
 
function fl(i:integer):Z;
begin
  var t:=inttostr(abs(i));
  Result.a:=t.first;
  Result.b:=t.last;
end;  
 
begin
  var a:=ReadlnString('Введите элементы массива через пробел:').
  Split(new string[1](' '),System.StringSplitOptions.RemoveEmptyEntries).Select(strtoint).ToArray;
  for i:integer:=low(a) to high(a) do 
    if not odd(i+1) then begin
      var t:=fl(a[i]);
      Writelnformat('индекс {0}, элемент={1}; первая цифра {2}; последняя цифра {3} ',i+1,a[i],t.a,t.b);
    end  
    else
      WritelnFormat('индекс {0}, элемент={1}',i+1,a[i])
end.

begin
  ReadlnString('Введите элементы массива через пробел:').
    Split('  '.ToCharArray, System.StringSplitOptions.RemoveEmptyEntries).ToArray.
    Numerate(1).Select(v -> begin
                              var value := Abs(StrToInt(v[1])).ToString;
                              result := Format('индекс {0} элемент = {1}', v[0], v[1]) +
                              (odd(v[0]) ? '' : Format('; первая цифра {0}; последняя цифра {1}', value.First, value.Last))
                            end).Println(NewLine);
end.