Дан одномерный массив размером 10 частей на промежутке [50;-50] найти какая

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)lt;gt;0 then s1:=s1+a[i]

                        else s2:=s2+a[i];    

             end;

      writeln;

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

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

       if (s1=s2) then writeln('Суммы одинаковы');

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

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

    readkey;

end.