Известно, что в массиве x(n) есть один элемент = 1. Определить где он находится и вычислить сумму положительных элементов последующих за ним и стоящих на нечетных местах — Pascal(Паскаль)

program m1;
const n=10;
var
i,j,el,sum:integer;
a: array[1..n] of integer;
begin
for i:=1 to n do
begin
    a[i]:=random(100);

end; 
a[4]:=1;

for i:=1 to n do
begin
    write(' ',a[i])

end;
writeln();
for i:=1 to n do
begin
    if (a[i]=1) then
        begin
            writeln('Номер элемента со значением 1 =',i);
            el:=i;
        end;
end; 

i:=el;

sum:=0;
j:=i+1;
for i:=j to n do
 begin
  if ((a[i]>0)and(j mod 2 <>0)) then sum:=sum+a[i];
  j:=j+1;
 end;

writeln('Сумма нечетных элементов ',sum);
end.