Создать массив состоящий из 10 элементов целого типа, заполнение массива происходит случайным образом (рандом) от -50 до 100, вывод вывести с коментариями

Var a: array[1..10] of integer;
i:integer;
begin
for i:= 1 to 10 do
begin
a[i] := random(150)-50;
writeln(i, ' элемент массива ', a[i]);
end;
end.