Определить, находится ли в массиве введенное с клавиатуры число - Pascal ABC

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

Помогите. пожалуйста. Напишите программу, которая проверяет, находится ли в массиве введенное с клавиатуры число, и какое оно по счету. Элементы массива и образец поиска вводятся пользователем.

Решение задачи: «Определить, находится ли в массиве введенное с клавиатуры число»

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

program abc;  {1647422}
var a:array[1..255] of integer;
x,n,i:integer;f:boolean;
begin
writeln ('Введите размерность массива:');
readln(n);
writeln ('Введите число:');
readln (x);
f:=true;
writeln ('Заполните массив:');
for i:=1 to n do begin
writeln ('Введите ',i,' элемент');
readln (a[i]);
if (a[i]=x) then begin
writeln ('Число ',x,' присутствует в массиве, его номер: ',i);
f:=false;
end;
end;
if f then writeln ('Числа ',x,' нет в массиве');
end.

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

Программа начинается с объявления переменных в блоке var. Переменная a является массивом целых чисел размером от 1 до 255.
Затем происходит чтение размера массива и числа для проверки с помощью функций readln.
Переменная f инициализируется значением true, что означает, что число еще не было найдено в массиве.
Затем происходит цикл for, который заполняет массив введенными пользователем числами. Числа считываются с клавиатуры и записываются в соответствующие элементы массива a.
Внутри цикла проверяется условие if (a[i]=x). Если оно истинно, это означает, что число x найдено в массиве. В этом случае переменная f устанавливается в false, чтобы указать, что число x больше не ищется.
После завершения цикла for выводится сообщение, указывающее, найдено ли число x в массиве. Если переменная f все еще равна true, это означает, что число x не было найдено в массиве.
Программа заканчивается выводом сообщения, указывающего, найдено ли число x в массиве.