program BeerBottler;

const WaitForRefill = True; //Time to wait (Milleseconds)
      RefillTime    = 1000; //between each saying if Wait = True

var i: Integer;
begin
  for i := 99 downto 1 do
  begin
    WriteLn(IntToStr(i) + ' bottle(s) of beer on the wall, '
      + IntToStr(i) + ' bottle(s) of beer!');
    WriteLn('Take one down, pass it around, '
      + IntToStr(i - 1) + ' bottle(s) of beer on the wall.');
    if WaitForRefill then Wait(RefillTime);
  end;
end.