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

[Гость]

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

Код

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

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

Код

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.

[Гость]

1) задача элементарная для того кто хоть как-то знаком с языком
2) больше 50 рублей я не заплачу за такую фигню
3) а что трудно бесплатно помоч?
Могу вместо денег дать хорошие аккаунты из ultima online которые стоят от 10 до 50 wmz или помочь деньгами в WoW

[мисс_граффити]

3) а что трудно бесплатно помоч?

слов нет.
сам же предложил.....

думаю, теперь уже точно никто помогать не будет.