[ Foro de Pascal ]

Problema

Hola, buenas tardes, tengo un problema no puedo sacar el importe total de las facturas queria saber si me podrian decir cual es el error que cometi y como seria la solucion.
NF,d,m,a,CP,imp,acumulador,total,reg,ac,cont,TF:integer;
DP,continuar,items:char;
begin
  continuar:='s';
  while continuar='s' do
  begin
      writeln('REGISTRO DE FACTURAS');
      write('Ingrese Numero de factura: ');
      readln(NF);
      write('Ingrese dia: ');
      readln(d);
      write('Ingrese mes: ');
      readln(m);
      write('Ingrese ano: ');
      readln(a);
      acumulador:=0;
      total:=0;
      cont:=0;
      TF:=0;
      ac:=0;
      repeat
          write('Ingrese el Codigo del producto: ');
          readln(CP);
          write('Describa el producto: ');
          readln(DP);
          repeat
               write('Ingrese el importe: ');
               readln(imp);
               if(imp<0)then
                  writeln('ERROR,por favor ingrese un valor positivo')
              else
                  acumulador:=imp+acumulador;
                  total:=acumulador;
          until(imp>0);
              write('¿Desea agregar mas items?(s/n) ');
              readln(items);
      until(items='n') ;
      writeln('Total Factura: ',total);
      total:=imp+ac;
      TF:=total;
      write('¿Desea agregar otra factura?(s/n) ');
      readln(continuar);
      if(continuar='s')then
      reg:=cont+1;
  end;
  writeln('Se registraron ',reg+1,'facturas con un importe total de ',TF,'pesos');
  readln;
end.