Известно число жителей, проживающих в каждом доме улицы. Нумерация домов проведена подряд. Дома с нечетными номерами расположены на одной стороне улицы, с четными — на другой. На какой стороне улицы проживает больше жителей? В ПАСКАЛЕ АВС

Uses crt;
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.