[gerupc]

Hola,

muchísimas gracias B3nshi, pero creo que te has confundido con el primer while, ya que no se ha inicializado la variable resp (Ojo, creo ;-) )

Bueno, al final con vuestra ayuda y trasteando un poco, he conseguido lo que necesitaba, exceptuando dos detalles: (Primero el código y después los problemas)

Código Delphi [-]
uses SysUtils;

{$APPTYPE CONSOLE}

var
  i: integer;
  cantidad: integer;
  opcion: char;
Begin
  writeln('Introduce la longitud del diagrama de barras: ');
   Repeat
      Begin
      readln(cantidad);
        write(#9);
        write('I');
          for i := 1 to cantidad do
            Begin
              write('*');
            end;   //Fin de Bucle For
      if cantidad = -1 then
        write('Desea representar mas diagramas? S/N: ');
        readln(opcion);
      end;
    until (opcion = 'n') or (opcion = 'N');   //Fin de Bucle Repeat
End.

1.-Al preguntarme: ¿Desea representar más diagramas? S/N:, me introduce una I justo delante de la pregunta, tal y como me hace para cada barra. Supongo que será mediante algún while >=0, pero no lo consigo, ya que me hace un bucle infinito...

2.- Me interesa que al finalizar cada barra, automáticamente se cambie de linea para poder introducir el número que desee, sin la necesidad de pulsar intro cada vez que finalice una barra, para cambiar de linea.

A ver si me podeis echar una mano ;-)

Un saludo,

Geru.