for k:=2 to n do if ( a [ k - 1 ] < x) and (a [ k ]>=x) then writeln('k= ',k);
Вы наконец-то смогли правильно выложить условие Пишите в почту, сделаю.