Столбчатая диаграмма - Pascal ABC

Формулировка задачи:

Задана последовательность 10-ти целых чисел (каждое число в диапазоне от 0 до 20). Вывести на экран 10 строк звездочек. Число звездочек в каждой строке равно очередному числу из последовательности. Строки должны быть пронумерованы цифрами от 0 до 9. Вывод одной строки с номером и набором звездочек оформить в виде процедуры. Ввод последовательности из файла, с клавиатуры или формирование на основе генерации случайных чисел - на свой вкус. Помогите пожалуйста 6

Решение задачи: «Столбчатая диаграмма»

textual
                            Листинг программы 
                        

                            const n=10;
procedure stroka(i,k:byte);
var j:byte;
begin
write(i,'   ');
for j:=1 to k do
write('*');
writeln;
end;
var a:array[0..n-1] of byte;
    i:byte;
begin
randomize;
for i:=0 to n-1 do
 begin
  a[i]:=random(21);
  stroka(i,a[i]);
 end;
end.
                        