Напишите программу, которая находит и выводит наименьший номер элемента, равного x - Pascal ABC

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

Дан целочисленный массив из n элементов. Элементы массива могут принимать произвольные целые значения. С клавиатуры вводится целое число x. Напишите программу, которая находит и выводит наименьший номер элемента, равного x, или сообщение, что такого элемента нет. (заранее спасибо)

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

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

const n=10;
var a:array[1..n] of integer; i,x:ineger;
begin
 for i:=1 to n do readln(a[i]);
 Write('x:'); readln(x);
 for i:=1 to n do if a[i]=x then begin write(i); readln; halt; end;
 Write('Такого нет'); readln;
end.

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

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

n - количество элементов в массиве (равно 10);
a - массив целых чисел от 1 до n;
i - индекс текущего элемента массива;
x - число, равное которому должен быть равен текущий элемент массива. Сначала происходит чтение значений элементов массива a с помощью цикла for. Затем с помощью оператора readln() считывается значение переменной x. Далее идет цикл for, в котором проверяется, равен ли текущий элемент массива x. Если да, то выводится его индекс с помощью функции write и операции readln для получения нового значения переменной i. Если такого элемента нет, то выводится сообщение Такого нет. В итоге, программа выводит наименьший номер элемента, равного x.