После упорядочения последовательности определить, где раньше находился элемент, сейчас занимающий k-ю позицию - Pascal

Формулировка задачи:

Дано натуральное число n и последовательность действительных чисел а1, а2, ..., аn. После упорядочения этой последовательности по убыванию определить на каком месте в последовательности находился член, стоит теперь на k-м месте.

Решение задачи: «После упорядочения последовательности определить, где раньше находился элемент, сейчас занимающий k-ю позицию»

Листинг программы

type elem=record
          x:real;
          k:integer;
          end;
var a:array[1..100] of elem;
    n,i,j,k:integer;
    t:elem;
begin
repeat
write('Введите размер массива от 2 до 100 n=');
readln(n);
until n in[2..100];
randomize;
writeln('Исходная последовательность');
for i:=1 to n do
 begin
  a[i].x:=10*random;
  a[i].k:=i;
  write(a[i].x:5:2);
 end;
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i].x<a[j].x then
 begin
  t:=a[i];
  a[i]:=a[j];
  a[j]:=t;
 end;
writeln('Последовательность упорядоченная по убыванию');
for i:=1 to n do
write(a[i].x:5:2);
writeln;
repeat
write('Введите номер элемента от 1 до ',n,' k=');
readln(k);
until k in [1..n];
writeln('Элемент, который сейчас стоит на ',k,' месте=',a[k].x:0:2,' раньше был на ',a[k].k,' месте');
end.

Объяснение кода листинга программы

В этом коде используется язык программирования Pascal. Вот список действий, которые происходят в коде:

Ввод размера массива от 2 до 100.
Инициализация случайными значениями элементов массива.
Вывод исходной последовательности.
Упорядочение последовательности по убыванию.
Вывод упорядоченной последовательности.
Ввод номера элемента от 1 до n.
Вывод информации о расположении указанного элемента. Тип данных elem представляет элемент, содержащий два поля: x — вещественное число и k — целое число. Массив a содержит элементы типа elem. Переменные n, i, j, k используются для управления циклами и содержат целочисленные значения. Переменная t используется для временного хранения элементов. Программа повторяет ввод размера массива и ввод номера элемента до тех пор, пока пользователь не введет корректные значения.