Нельзя преобразовать тип array 1.10 of integer к array of integer

const
const_mas = 10;
//
//Поиск индекса первого четного числа
//
function search_first_index(const massive:array of integer):integer;
  var i, first_index: integer;
  begin
    for i:= 0 to const_mas do;
      begin
        if massive[i] mod 2 = 0 then
          begin
            first_index:= i
          end
        else 
          begin
            first_index:=0
          end;
      end;
      search_first_index:=first_index
  end;
//
//Поиск индекса последнего четного числа
//
function search_last_index(const massive:array of integer):integer;
  var i, last_index: integer;
  begin
    for i:= const_mas downto 1 do;
      begin
        if massive[i] mod 2 = 0 then
          begin
            last_index:= i
          end
        else 
          begin
            last_index:=0
          end;
      end;
      search_last_index:=last_index
  end;
  
var i, first_index, last_index: integer;
 massive: array[1..const_mas] of integer;
 new_massive: array[1..const_mas] of integer;
    begin
      writeln('введите числа');
      for i:= 1 to const_mas do
        begin
          read(massive[i]);
        end;
        first_index:=search_first_index(massive);
        last_index:=search_last_index(massive);
          if (first_index = last_index) or (first_index = 0) then
            writeln('Пустое множество')
        else 
          for i:=first_index to last_index do
          begin
            new_massive[i]:=i;
            write(new_massive)
          end;
        end.

const
  const_mas = 10;
//
//Поиск индекса первого четного числа
//
function search_first_index(const massive: array of integer):=
if massive.Any(x->x.isEven) then massive.Select((x,i)->(x,i)).Where(x->x[0].isEven).First[1]
else -1;
 
//
//Поиск индекса последнего четного числа
//
function search_last_index(const massive: array of integer):=
if massive.Any(x->x.isEven) then massive.Select((x,i)->(x,i)).Where(x->x[0].isEven).Last[1]
else -1;
 
begin
  var massive := ReadArrInteger('введите числа:', const_mas);
  var first_index := search_first_index(massive);
  var last_index := search_last_index(massive);
  if first_index = last_index then
    writeln('Пустое множество')
  else 
    begin
      var new_massive := massive.Select((x,i)->i.InRange(first_index,last_index)?1:0);
      new_massive.Println;
    end;
end.