Duda con ejercicio de Diagrama de Barras

[gerupc]

Hola,

tengo un problema con un ejercicio. La presentación ha de ser así:

Introduce las longitudes del diagrama de barras a representar:
4 <R>                     I****

0 <R>                     I

5 <R>                     I*****

11 <R>                   I***********

14 <R>                   I**************

10 <R>                   I**********

7 <R>                     I*******

1 <R>                     I*

-1 <R>

¿Deseas representar mas diagramas de barras (S/N): N <R>

Entonces, donde me bloque es a la hora de implementar un bucle for:

Código Delphi [-]
begin   writeln('Introduce las longitudes del diagrama de barras a representar: ');
  readln(cantidad);
      asterisco := '*';
    for i := 1 to cantidad do       Begin          //Aquí he probado unas cuantas cosas...pero nada.
      end;

Se me ha ocurrido el hacer una conversión de datos y convertir el asterisco a entero para poderlo multiplicar por una variable de valor 1. De esta manera se me quedaría variable := asterisco solo (ya que lo he multiplicado por 1) y así poder hacer.

Código Delphi [-]
write('I', asterisco);

Alguna manera 'mejor'?? o más bien, alguna manera de hacerlo ??

Un saludo,

Geru.