Элементарная задача, но бьюсь как рыба об лёд. Поможете ?

Элементарная задача, но бьюсь как рыба об лёд. Поможете ?
Годовой прирост рыбы в озере 15 %. Запас рыбы А тонн. Годовой план вылова В тонн. Подсчитать, сколько лет можно выдерживать заданный план.
Написать алгоритм нужно.

  • По шагам - рыба прибавляет столько-то, потом вылавливается столько-то. Если число растет - то рыба будет вечно. Если число уменьшается - то считать, пока не будет рыбы меньше какого-то минимума - так и получится количество лет.
  • readln(a,b);
    k:=-1; //На случай невыполнения плана
    repeat
    olda:=a;
    a:=a*1.15-b; //Вылов после того, как вся рыба отнерестилась. Если до - тогда a:=(a-b)*1.15
    inc(k);
    if a<0 then
    writeln(k);
    if a>olda then begin
    writeln('Infinite fish');
    break;
    end;
    until a>=0;