Составьте алгоритм на Паскале пожалуйста

var n: integer; p,S:real;begin;S:=10000;p:=1+0,05;while S<20000 dobeginS:=S*p;n:=n+1end;writeln('Вклад в 10000 увелечится в два раза после ',n,'месяцев');end. 

var time:integer;
var summa:real;
var month:string;
k:=1.05;
begin
month := ' месяцев';
summa:=10000;
while summa<20000 do begin 
   summa:=summa*k; 
   time:=time+1;
   end;
writeln('Ответ:',time + month);  
end.