Найти все появления заданного числа, введенного пользователем с клавиатуры

program Project1;
const
  n = 30;
var
  i: integer; { Переменная для организации циклов}
  a: array [1..n] of integer; { Переменная для хранения массива}
  b: integer; { Переменная для хранения значения вводимого числа}
  flag: boolean; { Логическая переменная для организации ответа}
begin
  randomize;
  write('Введите значение искомого числа: ');
  Readln(b);
  writeln('Исходный массив: ');
  for i:= 1 to n do
    begin
      a[i]:= random(101);                 { Заполнение массива случайными числами}
      write(a[i]:5);                      { Вывод элементов массива в консоль}
    end;
  writeln;
  flag:= true;
  for i:= 1 to n do
    if a[i] = b then                       { Условие для поиска элемента}
      begin
        write('a[',i,']= ',a[i],'; ');      { Вывод найденного элемента в консоль}
        flag:= false;                        { Регистрация того, что элемент найден}
      end;
  writeln;
  if flag then                    { Если не было обнаружено ни одного совпадения то...}
    writeln('Элементов, равных введенному числу не обнаружено.');
  Readln;
end.