Найти сколько раз первоначальное число встречается среди набираемых - Pascal ABC

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

Ввести одно число и запомнить его. Дальше вводятся 10 чисел. Программа должна найти сколько раз первоначальное число встречается среди набираемых и номер первого. Например, ввели первое число 5, далее вводим 7 5 1 7 2 4 5 5 6 0. Программа должна выдать "Число 5 встречается 3 раза, первый раз номер 2".

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

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

const n=10;
var a,b,i,i1,k:integer;
begin
write('Введите число для сравнения a=');
readln(a);
k:=0;
i1:=0;
for i:=1 to n do
 begin
  readln(b);
  if b=a then
   if i1=0 then
    begin
     i1:=i;
     k:=1;
    end
   else inc(k);
 end;
writeln('Число ',a,' встречено ',k,' рз.');
if i1>0 then write('первый раз номер ',i1)
end.

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

Переменная n инициализируется значением 10.
Переменные a, b, i, i1 и k инициализируются целочисленными значениями.
Пользователю предлагается ввести число для сравнения.
Переменная k инициализируется значением 0, а переменная i1 - значением 0.
В цикле for происходит чтение входного числа b.
Если b равно a, то если i1 равно 0, то устанавливаются значения i1 и k в текущее значение i.
Если i1 не равно 0, то значение k увеличивается на 1.
После завершения цикла for выводится сообщение о количестве вхождений числа a.
Если i1 больше 0, то выводится сообщение о том, что число a было встречено первый раз с номером i1.