Какой газ преобладает в составе атмосферы?

Program gt;
var a:array[1..100]of integer;
n,i,B,j:integer;
begin
readln(n)
for i:=1 to n do
read(a[i]);
j:=0;
for i:=1 to n do
if(a[i]<=b)then begin
j:=i;
break;
end;
if(j>0)then writeln(j) else writeln(n+1);
end.