Вывод заданного кол-ва символов с помощью процедуры., И построения из них простого рисунка. Опции

[Гость]

Надо помогите чето сделать никак не могу: Задание такого: описать процедуру, выводящую на экран определенное кол-во заданного символа, и с помощью него построить вот эту штуку:

Код

     *
    ***
   *****
  *******

ВОт что я сделал: но у меня получается, так:
*
потом я опять ввожу отступ, кол-во и символ
**
и тоже самое, а мне надо чтобы сразу эта шняга, помогите плз. Вота мой код:

Код

program Zvezda;
uses
CRT;
var
R,C,i,Z,B:integer; X,G,ch:char;

procedure Zvezdochka(var R,C:integer);
begin
readln(R);
readln(X);
readln(C);
for i:=1 to R do begin
write(' '); end;
for i:=1 to C do begin
write(X); end;
end;



Begin
clrscr;
writeln('Vvedite:');
writeln('1)Na kakom rasstoianii budet naxoditsia simvol:');
writeln('2)Kakoy eto simvol');
writeln('3)Skolko budet takix simvolov');
Zvezdochka(R,C);
readln(G);
end.

[APAL]

2Volvo:

Сам реши открывать мой пост или нет.