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

[Refuis]

var
  stav,year0,year,i: integer;
  s0,s: real;
begin
  write('Введите первоначальный вклад (руб.): ');
  readln(s0);
  if s0<0 then writeln('Введен неверный вклад');
  write('Введите учетную ставку (%): ');
  readln(stav);
  if stav<0 then writeln('Введена неверная учетная ставка');
  write('Введите год помещения вклада: ');
  readln(year0);
  if year0<0 then writeln('Введен неверный год');
  s:=s0;
  for i:=1 to year-year0 do
    s:=s+s*stav/100;
  writeln('В ',year0,' году величина вклада будет = ',s:0:2,' руб.');
  s:=s0;
  repeat
    s:=s+s*stav/100;
    inc(year0);
  until s>s0*2;
  writeln('Год удвоения вклада: ',year0,', сумма вклада составит: ',s:0:2,' руб.');
  readln;
end.

Данная программа вычисляет за сколько лет удвоится первоначальный вклад.
К данной программе нужно приписать "конечный вклад" (должен быть больше первоначального), программа должна вычислить сколько поступает денег за 1 год, после этого выдать результат за сколько лет первоначальный вклад дойдет до конечного. Нужно приписать цикл while, а я уже даже не знаю куда мне его, помогите, пожалуйста.