Известно число жителей, проживающих в каждом доме улицы. Нумерация домов проведена подряд. Дома с нечетными номерами расположены на одной стороне улицы, с четными- на другой. На какой стороне улицы проживает больше жителей? Использовать только один оператор цикла- Pascal(Паскаль)

var
  a: array [1..1000] of integer;
  n, i, k, p: integer;
 
begin
  writeln('Введите количество домов ');
  readln(n);
  writeln('Вводите через пробел число жителей каждого дома ');
  for i := 1 to n do
  begin
    read(a[i]);
    if i mod 2 = 1 then k := k + a[i]         
    else p := p + a[i];
  end;
  writeln;
  if k > p then writeln('В нечетных домах жителей больше ')
  else writeln('В четных домах жителей больше ');
end.