Дан одномерный массив размером 10 элементов на интервале [50; -50] определить какая сумма больше четных или нечетных элементов массива (9 класс Паскаль)

Program TwoSums;

Uses Crt;

var a:array[1 ... 10] of integer;

i:integer;

s1, s2:longint

begin

clrscr;

write ('Исходный массив:') ;

s1:=0; s2:=0;

for i:=1 to 10 do

begin

a[i]:=random (101) - 50;

write (a[i]:3) ;

if (i mod 2) 0 then s1:=s1+a[i]

else s2:=s2+a[i];

end;

writeln;

writeln ('Сумма нечётных элементов массива:', s1) ;

writeln ('Сумма чётных элементов массива:', s2) ;

if (s1=s2) then writeln ('Суммы равны') ;

if (s1>s2) then writeln ('Сумма нечётных элементов массива больше!')

else writeln (' Сумма чётных элементов массива больше!') ;

readkey;

end.