Wykres słupkowy (bez dodatkowych modułów)

Witam Otrzymałem nie dawno takie zadanie (z ksiażki Pascal to proste).

Napisz program, który będzie przetwarzał zbiór dziesięciu liczb typu realna wykres słupkowy, utworzony z linii lub gwiazdek. Liczba powinna być wyświetlana po prawej stronie odpowiadającego mu słupka, na przykład:

**********************20.4
*************************************33.8

Niby nic trudnego, ale nie dla mnie :( . Jak zwykle zresztą. Pascal jest za bardzo wybredny. Tak wygląda mój programik póki co:

program wykresslupkowy;
uses crt;
var
a:array [1..10] of real;
i:integer;
b:char;
begin
clrscr;
       for i:=1 to 10 do
       begin
        write('Podaj dane do wykresu supkowego');
        read(a[i]);
       end;
writeln('oto wykres slupkowy');
             for i:=0 to 9 do
             begin
              writeln(a[i+1]:2:2);
             end;

readkey;
end.

Jak widać wartości są już wypisane, ale brakuje jedynie gwiazdek. Próbowałem przypisać do b:=* , po czym jakoś to zapisać, aby tą gwiazdkę wypisać a[i+1] razy, ale nie potrafię. Proszę pomóżcie mi go dokończyć, myślę już przy tym ze 2 godziny...

for k:=0 to round(a[i+1]) do write('*'); writeln(a[i+1]:2:2);

Dzięki :D :)

Tablica 1.10 pętla 0..9 nie ma błędu?

@babubabu
Nie ma błędu, bo indeksowanie jest a[i+1] :)

@Renewerek
Można też użyć funkcji StringOfChar (o ile istnieje ona w wersji Pascala, której używasz).