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

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