program Series17;
var
a,B,N,i:integer;
bol:boolean;
begin
i:=0;
n:=0;
bol:=true;
Writeln('Введите число B');
readln(B);
Writeln('Введите число N');
Readln(N);
Writeln('Введите ',N,' целых чисел.');
While i < n do
begin
Read(a);
if (a>b)and(bol) then begin Write(' ',b); bol:=false; end;
Write(' ',a);
inc(i);
end;
end.
причем здесь bol и как он работает объясните 

var
a,b,n,i:integer;
bol:boolean;
begin
  //Инициализируем переменные
  i:=0;
  n:=0;
  bol:=true;
 
  //Осуществляется ввод
  Writeln('Введите число B: '); readln(b);
  Writeln('Введите число N: '); Readln(n);
  Writeln('Введите ', n,' целых чисел.');
 
  //цикл (с пред условием) будет повоторятся n раз
  While i < n do
    begin
    //Осуществляется ввод с клавиатуры
      Read(a);
      //Проверяем является (A больше B) и (bol = true)
        if (a>b)and(bol) then
        //Если является
          begin
            //выводит значение B через пробел
            Write(' ',b);
            //и присваивает bol = ложь
            bol:=false;
          end;
          //выводит значение А через пробел
        Write(' ',a);
        //инкрементирует i, тоесть i:=i+1
        inc(i);
    end;
end.