Некто положил в банк s рублей. через сколько лет сумма вклада более, чем в 2 раза превысит первоначальный вклад, если годовой процент составляет x%.паскаль

Var s,x,sum:real; k:integer;
begin
write('s = ');
readln(s);
write('x = ');
readln(x);
sum:=s; k:=0;
while sum<=2*s do
 begin
 k:=k+1;
 sum:=sum+sum*x/100;
 end;
writeln('k = ',k);
end.

Пример:
s = 2000
x = 10
k = 8