Задан массив в (10) элементов. найти следующие суммы элементов: а) сумму всех элементов массива; б) сумму, отдельно с четными и нечетными индексами. , сильно нужно на завтра < 3

На паскале что то вроде такого:

uses GraphABC;

var
sum, sum_chetn, sum_nechetn : integer;
b:array [1..10] of integer;

begin
for var i := 0 to 10 do
begin
sum :=sum + b[i]; //сумма всех элементов
if (i mod 2 =0) then
begin
sum_chetn := sum_chetn + b[i]; //сумма всех четных элементов
end
else
begin
sum_nechetn := sum_nechetn + b[i]; //сумма всех нечетных элементов
end;
end;
println('Сумма всех элементов:');
println(sum);
println('Сумма всех четных элементов:');
println(sum_chetn);
println('Сумма всех нечетных элементов:');
println(sum_nechetn);
end.