Дана сумма вклада и процент, начисляемый за год. Через сколько лет вклад превысит миллион? (Pascal)

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

Пример:
s = 400000
p = 10
k = 10