Найти наименьший номер элемента массива, равный X - PascalABC.NET

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

Доброго времени суток. Срочно уезжаю надолго. Там не будет интернета и ПК. Дан целочисленный массив из 30 элементов. Элементы массива могут принимать произвольные целые значения. С клавиатуры вводится целое число X. Опишите на русском языке или на одном из языков программирования алгоритм, который находит и выводит наименьший номер элемента, равного X, или сообщение, что такого элемента нет. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них.

const N=30;
var a: array [1..N] of integer;
 i, j, x: integer;
begin
 for i:=1 to N do readln(a[i]);
 readln(x);
 ...
end.

Заранее благодарю. Без "Спасибо" Вас не оставлю! P.S. Уважаемая администрация, не удаляйте мои темы из-за их похожести P.P.S Прошу писать простым языком.

Решение задачи: «Найти наименьший номер элемента массива, равный X»

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

//...
j := 0;
for i:=1 to N do
  if a[i] = x
    then begin
      j := i;
      break
    end;
if j <> 0
  then writeln('Наименьший номер элемента, равного X: ', j)
  else writeln('В массиве нет элементов, равных X');
//...

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

В данном коде на языке PascalABC.Net реализуется задача поиска наименьшего номера элемента массива, содержащего значение X.

Переменная N инициализируется значением количества элементов в массиве a.
Переменная j инициализируется нулевым значением и используется для хранения текущего минимального индекса.
В цикле for перебираются все элементы массива a с индексами от 1 до N.
Если значение текущего элемента a[i] равно x, то в текущую переменную j записывается его индекс, и цикл прерывается командой break.
Если после выполнения цикла переменная j не изменилась и осталась равной нулю, выводится сообщение о том, что в массиве нет элементов, равных x.
В противном случае выводится сообщение с наименьшим найденным индексом j, соответствующим элементу x.