Pascal/Turbo Pascal - Problema que dibuje una figura con asteriscos

{Mira esto a ver si te ayuda }

 program asteriscos;

 uses

    crt;

  var

    q, m, p, j, n : integer;

  procedure RepetirCaracter(c : char; v, r : integer);

  var

    h, d, t : integer;

  begin

    d := 1;

    h := (v div r);

    write('   ');

    repeat

     for t := 1 to h do

     begin

     write(c);

     end;

     write(' ');

     d := d + 1;

    until d > r;

    writeln;

  end;

   function potencia_2(n : integer) : longint;

   var

      ss : longint;

      ll : integer;

     begin

         potencia_2 := 0;

         ss := 1;

         for ll := 1 to n do

         ss := ss * 2;

         potencia_2 := ss

      end;

  begin

     clrscr;

     write('   Entre Numero 1 Al 6 : ');

     readln(n);

     writeln;

     for j := n - 1 downto 0 do

     begin

     p := p + potencia_2(j);

     q := potencia_2((n-j-1));

     RepetirCaracter('*',p,q);

     end;

     readkey;

  end.