Написать программу, которая сортирует массив ПО УБЫВАНИЮ и ищет в нём элемент, равный X(с клавиатуры)

На каком языке?
Сортировка
n - кол-во элементов
for i := 1 to n do read(mass(i));
for i := 1 to n do
for j := i + 1 to n do
if mass(i) < mass(j) then swap(mass(i), mass(j));

Поиск
r := n + 1;
l := 0;
while r - l > 1 do begin
if mass((l + r) / 2) < x then r := (l + r) / 2
else l := (l + r) / 2;
if l = x then write(l);