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 и как он работает объясните 

vara,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.