Написать задачку на языке PascalABC 3.1На улице дома с чётными номерами

Program t;
varn, x, i, s, k:integer;
a:array [0..20] of integer; 20 =это максимальное количество домов .Заместо 20 поставь хоть какое  число
begin
write('Введите количество домов на улице : ');
read(n);
for i:=1 to n do
begin
write('Введите количество обитателей в ', i, ' -м доме : ');
read(a[i]);
end; 
for i:=1 to n do    
if i mod 2=0 then s:=a[i]+s; Считаем жителей правых        
        for i:=1 to n do
        if i mod 2=1 then k:=a[i]+k;Считаем обитателей левых 
if sgt;k then write('Разница меж домами ', k-s ); 
if slt;k then write('Разница меж домами ', s-k );
end.


Введите количество домов на улице : 3
Введите количество обитателей в 1 -м доме : 3
Введите количество обитателей в 2 -м доме : 1
Введите количество обитателей в 3 -м доме : 4
Разница меж домами -6

Писал на Версии 3.3
Скобки это комменты,их можно убрать