Знаменито число обитателей, проживающих в каждом доме улицы. Нумерация домов проведена

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 kgt;p then writeln ('В нечетных домах обитателей больше ')
     else writeln('В четных домах обитателей больше ');
end.