Найти сумму элементов, стоящих на четных местах массива

const
n=15;
var
a:array [1..n] of integer;
i,s1,s2:integer;
begin
randomize;
 for i := 1 to n do
    begin
      a[i]:=random(10);
      write(a[i]:4);
    end;
    s1:=0;
    s2:=0;
   for i := 1 to n do
   if i mod 2=0 then
     inc(s1,a[i])
    else
     begin
     inc(s2,a[i]);
     end;
     writeln;
     writeln(s1);
     writeln(s2);
     if s1>s2 then
     write('s1>s2')
     else
     write('s1<s2');
readln;
end.

program asa;
uses crt;
va a:array[1..15] of integer;
i,s1,s2:integer;
begin
clrscr;
randomize;
s1:=0;
s2:=0;
for i:=1 to 15 do
a[i]:=random(20);
for i:=1 to 15 do
begin
 if i mod 2=0 then
begin
s1:=s1+a[i];
end
                  else
begin
s2:=s2+a[i]
end;
if s1>s2 then
writeln('s1>s2')
else
if s1=s2 then
begin
writeln('s1=s2');
end
else
begin
writeln('s1<s2');
end;
end;
writeln(s1);
writeln(s2);
readkey;
end.