В массиве найти количество вхождений числа X, индексы первого и последнего вхождений - Free Pascal

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

A[i]-массив целых чисел, состоящий из элементов,выбранных случайным образом из диапазона [-5;5] X- целое число из диапазона [-5;5]. вводится пользователем. Проверка ввода обязательна. Найти: Количество вхождений числа Х в массив а[i] Первое вхождение числа X в массив а[i]. ( индекс) Последнее вхождение числа Х в массив а[i].(индекс) Помогите ❤

Решение задачи: «В массиве найти количество вхождений числа X, индексы первого и последнего вхождений»

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

uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,x,i,j,k,i1,ip:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива А от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Массив A');
for i:=1 to n do
 begin
  a[i]:=-5+random(11);
  write(a[i]:4)
 end;
writeln;
repeat
write('Ввндите целое число из диапазона [-5;5] x=');
readln(x);
until (x>=-5)and(x<=5);
k:=0;
i1:=0;
ip:=0;
for i:=1 to n do
if a[i]=x then
 begin
  k:=k+1;
  if i1=0 then i1:=i
  else ip:=i;
 end;
writeln('Количество чисел ',x,'=',k);
writeln('Первое вхождение=',i1);
writeln('Последнее вхождение=',ip);
readln
end.

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

Объявление переменных:
- a: массив для хранения чисел
- n: размер массива
- x: число, которое нужно найти в массиве
- i, j, k: счетчики для обработки массива и поиска числа x
- i1, ip: индексы первого и последнего вхождения числа x
Заполнение массива случайными числами от -5 до 5 с помощью функции random(11) и присваивания каждому элементу значения -5+random(11).
Вывод размера массива и заполненного массива на экран.
Ввод числа x с помощью функции readln().
Инициализация счетчиков k, i1, ip.
Поиск числа x в массиве с помощью условного оператора if. При совпадении числа x с элементом массива увеличиваем счетчик k на 1 и присваиваем i1 значение i, если это первое вхождение, иначе присваиваем ip значение i.
Вывод количества совпадений числа x с массивом (k), первого вхождения (i1) и последнего вхождения (ip).
Ожидание ввода с помощью функции readln().