Создать массив из 5 элементов,заполнить его случайными числами от -3 до 8 и вывести элементы на экран.

Var a,b,c:integer;
d:array [1..5] of integer;
begin
randomize;
for a:=1 to 5 do begin
d[a]:=random(-3,8);
writeln('элемент массива ==> ',d[a]);
end;
end.