[DarthDante]

Buenas! Soy nuevo en esto de programar y tengo una asignación que no puedo completar Vengo a pedir ayuda por acá, a ver si es posible

La cosa es que he hecho este programilla:

Código Delphi [-]
program Tarea6;

{$APPTYPE CONSOLE}

uses
SysUtils,crt,math;
var
  Co,X,CMES,CSEM,y,e,f,g:real;
  a,b,c,d,N:integer;
begin
  Writeln('Indique la inversion inicial');
  Readln(Co);
  Writeln('Indique el interes anual abonado a su cuenta (en porcentaje, sin el signo %)'); 
  Readln(X);
  Writeln('Indique la cantidad mensual a depositar');
  Readln(CMES);
  Writeln('Indique la cantidad semestral a retirar');
  Readln(CSEM);
  Writeln('Indique la cantidad de meses a ser calculados');
  Readln(N);
  y:=(X/100)*Co;
  b:=N*30;
  e:=y/360;
  d:=0;
  f:=Co;
  begin
    for a := 0 to b - 1 do
      f:=f+e;
  end;
  begin
    for c:=0 to N - 1 do
      f:=f+CMES;
  end;
  begin
    if N>=6 then
      d:=N div 6;
    f:=f-(d*CSEM);
  end;
  Writeln('Su cantidad de dinero al cabo de los ',N, ' meses fue: ',f:0:2);
  if f>=(2*Co) then
  begin
    Writeln('Se duplico su inversion inicial')
  end
  else
    Writeln('No se duplico su inversion inicial');
  Readln;
end.

(Se que quiza se pueda lograr más corto, pero asi me ha salido eh) Mi pregunta es: ¿como puedo saber en que N (en que mes) se duplico la cantidad Co inicial? y de no duplicarse, ¿como saber en que mes se duplicara? Gracias de antemano