СРОЧНООООО задайте массив из 10 элементов с подмогою датчика случайных чисел.Найдите

Изображение текста программки с комментами: http://bit.ly/2s7XSxv.

program array10;
var a: array [1..10] of integer;
average: real;
total:integer;
n: integer;

begin
total:=0;n:=0;
randomize;
for k:integer:=1 to 10 do
begin
a[k]:= random(1,100);
total:= total + a[k];
end;
average:= total/10;
for k:integer:=1 to 10 do
begin
if a[k]gt;average then n:=n+k;
if a[k]gt;average then writeln( , a[k],-,k)
else
writeln( , a[k]);
end;
writeln;
writeln(average = ,average, sum_index = , n )
end.