Даны последовательность из n целых чисел и целое число a. Найти номер первого вхождения a в последовательность или вывести сообщение, что элемента равного a в последовательности нет — Pascal(Паскаль)

Uses
  CRT;

Var
  i, a, ind, kol, n, k: integer;

begin
  write('Введите кол-во элементов: ');
  readln(n);
  write('Введите число: ');
  readln(a);
  i := 1;
  ind := 0;
  kol := 0;
  repeat
    write(i, '-й элемент:=');
    readln(k);
    if k = a then
    begin
      inc(kol);
      if kol = 1 then
        ind := i;
    end;
    inc(i);
  until i > n;
  if ind <> 0 then
    writeln('Элемент ', ind, '-й')
  else
    writeln('Нет элемента равного ', a);

end.