Массивы в С++. Найти сумму элементов массива Т, имеющих четные порядковые номера

Program mas1;
const k=10;
      n=10;
var
i,sum,sumk,sumne,sumcho:integer;
 
T:array[1..k]of integer;
procedure osn(n:integer; var T:array[1..k]of integer);
var i:integer;
 
 
               begin {ввод данных масива}
writeln('Массив из случайных чисел'); {случайные числа}
       randomize;
for i:= 1 to n do
T[i]:=random(100);
end;
procedure viv (n:integer; var T:array[1..k]of integer);
var
i:integer;
 
              begin {вывод данных массива}
writeln('Вывод данных массива');
for i:= 1 to n do
writeln('T[',i,']=', T[i]);
end;
                   {1}{четные}
function sum2(var n:integer; var T:array[1..k]of integer):integer;
var
i,sum1,sum:integer;
 
              begin {условие}
sum:=0;
for i:= 1 to n do
read(T[i]);
if T[i] mod 2=0 then
sum1:=sum+T[i];
sum2:=sum1;
 
 
end;
                   {2}{нечетные}
function sum4(var n:integer; var T:array[1..k] of integer):integer;
var
i,sum3,sumk:integer;
 
              begin {условие}
sumk:=0;
for i:=1 to n do
read(T[i]);
if T[i] mod 2<>0 then
sum3:=sumk+T[i];
sum4:=sum3;
 
end;
              begin {вывод нечетных и четных чисел}
osn(k,T);
viv(k,T);
 
sumne:=sum2(k,T);
writeln('Сумма четных элементов массива sum2  ', sum2);
 
 
writeln('Сумма нечетных элементов массива sum4 ',sumne);
 
end.