While y Pascal

[Carlmycol]

Bueno estoy intentando hacer por mi cuenta un programa en el cual introduscas un caracter y un numero de linas y miestre una especia de piramide con el caracter y que la piramide sea tan grande como el numero insertado...

Algo parecido a esto:

[ MS-DOS ]
Introduce Caracter: *
Introduce Numero de Lineas: 7

*
**
***
****
*****
******
*******
[ MS-DOS ]

Por ahora llevo esto:

program caracter;
uses crt;
var
base:integer;
caracter:string[1];
lineas:integer;
begin
textcolor(yellow);
textbackground(blue);
clrscr;
gotoxy(30,15);
writeln('Escribe Caracter');
readln(caracter);
writeln('Escribe Numero de Lineas');
readln(lineas);
base:=0;
while base<=lineas do
begin
writeln(caracter);
base:=base+1;
end;
readln;
end.

Pero el Problema es que no me sale en piramide me sale asi:

[ MS-DOS ]
Introduce Caracter: *
Introduce Lineas: 7

*
*
*
*
*
*
*
[ MS-DOS ]

¿Que Puedo Hacer para Que salga en Piramide?

Salu2 y Gracias