Сформировать массив из случайных целых чисел из промежутка от -3 до 3 элементы массива вывести в строчку

Var 
i:Integer; 
A:Array[1..10] of Integer; 
begin 
Randomize; 
for i:=1 to 10 do 
A[ i ]:=Random(100); 
end. 
Только не понял - ввод с клавиатуры или заполнить случайными числами?