Заполнить массив a(21) случайными числами в диапазоне от -1 до 17. выведите его на экран. pascal abc 9 класс

Const 
n=21; 
var a:array[1..n] of real; 
i:integer; 
begin 
randomize; 
for i:=1 to n do begin 
a[i]:=random(18)+-1; 
write(a[i],' '); 
end; 
end.