Нужно полностью решение в паскале.Задача: Начальный вклад в банке равен 1000 рублей. Через каждый месяц размер вклада увеличивается на 5%. Через сколько месяцев размер вклада превысит 1100 рублей?

Var mes, sum: real;
begin
mes:=0;
sum:=1000;
while sum begin
sum:=sum+(sum*0.05);
mes:=mes+1;
end;
writeln (mes:2:0);
readln;
end.
Программа работает корректно. Выводит 2