Нужно! заполнить случайный массив в диапозоне [0; 100] из 5 элементов найти,среднее арифметическое всех элементов массива

Program abc;

var

mas: array[1..5] of integer;

i: integer;

a: real;

begin

for i:=1 to 5 do

begin

mas[i]:=random(1000);

writeln('Число ',mas[i], ' ');

a:=a+mas[i];

end;

a:=a/5;

write('Среднее число: ', a);

end.
Держи