Вычислить сумму элементов массива с нечетными номерами

s:=0;
for i:=1 to n do
if (i mod 2 <> 0) then s:=s+a[i];

for i:=1 to n do
if (a[i]<0) then 
begin
iot1:=i;
break;
end;

const n=100;
var
  a,b:array[1..n] of real;
  s,r:real;
  i,j,k,l:integer;
begin
  repeat
    write('n(1..100)=');
    readln(k);
  until k in [1..100];
  write('введите массив:');
  for i:=1 to k do begin
    read(a[i]); 
    if odd(i) then s:=s+a[i];
    if abs(a[i])>1.0 then begin j:=j+1;b[j]:=a[i];end;
  end;
  writeln('Сумма элементов массива с нечетными номерами:',s:0:6);
  l:=1;
  while (a[l]>0) and (l<k) do l:=l+1;
  i:=k;
  while (a[i]>0) and (i>1) do i:=i-1;
  for i:=l+1 to i-1 do r:=r+a[i];
  writeln('Сумма элементов массива, расположенных между первым и последним отрицательными элементами:',r:0:6);
  for i:=1 to j do a[i]:=b[i];
  for i:=j+1 to k do a[i]:=0.0;
  write('полученный массив: [');
  for i:=1 to k-1 do write(a[i]:0:6,',');
  writeln(a[k]:0:6,']');
  readln;
end.