Дан одномерный массив размером 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.