Найти номер последнего вхождения данного числа в последовательность,или вывести сообщение,что такого числа нет - Turbo Pascal

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

Нужна помощь в написании программы для создания и обработки массива вот условие: Дана последовательность из n вещественных чисел.Найти номер последнего вхождения данного числа в последовательность,или вывести сообщение,что такого числа нет. Буду очень признателен за помощь!

Решение задачи: «Найти номер последнего вхождения данного числа в последовательность,или вывести сообщение,что такого числа нет»

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

const
  nmax=100;
var
  a: array[1..nmax] of integer;
  n,i,x,k: integer;
begin
  randomize;
  write('Введите размер массива n: ');
  readln(n);
  write('Введите искомое число x: ');
  readln(x);
  k:=0;
  writeln('Массив:');
  for i:=1 to n do
  begin
    a[i]:=random(9)+1;
    write(a[i],' ');
    if a[i]=x then k:=i;
  end;
  writeln;
  if k=0 then writeln('Искомого числа в массиве нет') else
    writeln('Номер последнего вхождения числа ',x,' = ',k);
  readln;
end.

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

В данном коде объявлены следующие переменные:

nmax — максимальное количество элементов в массиве (константа);
a — массив, в котором будут храниться случайные числа (динамичный массив);
n, i, x, k — переменные, используемые в цикле и для обработки ввода пользователя;
randomize — функция, которая инициализирует генератор случайных чисел;
write — функция, которая выводит текст на экран;
readln — функция, которая считывает ввод пользователя. Цель программы — найти номер последнего вхождения заданного числа в массиве. Для этого используется цикл, который проходит по всем элементам массива. В каждой итерации цикла генерируется случайное число и проверяется, равно ли оно искомому числу. Если да, то переменная k принимает значение индекса текущего элемента. После завершения цикла выводится сообщение о том, найдено ли искомое число в массиве или нет. Пример работы программы:
1. Пользователь вводит размер массива n (до 100 элементов).
2. Пользователь вводит искомое число x.
3. Выводится массив элементов.
4. Если искомое число найдено в массиве, то выводится его номер. Если искомое число не найдено, то выводится сообщение Искомого числа в массиве нет.