Дан массив а(50). определить количество отрицательных элементов, расположенных на четных позициях, и сумму положительных элементов, расположенных на нечетных позициях — Pascal(Паскаль)

Uses
 CRT;
Var
 i,n,kol:integer;
 sum:real;
 a:array[1..20] of integer;
begin
Clrscr;
repeat
 write('- ');
 readln(n);
until n in [1..20];
randomize;
kol:=0;
sum:=0;
 for i:=1 to n do
 begin
  a[i]:=random(10)-5;
  write(a[i]:3);
  if (a[i]<0) and (i mod 2=0) then
  begin
   inc(kol);
   end;
   if (a[i]>0) and (i mod 2<>0) then
   sum:=sum+a[i];
 end;
 writeln;
 writeln('kol:=',kol);
 writeln('sum:=',sum);
 readkey
 end.