Составьте программу, которая наполняет массив A[1..10] случайными целыми числами в спектре

CONST k=10; k - количество чисел в массиве
VAR a:array[1..k] of integer;
    i,summ,n:integer; i - счетчик цикла, summ - сумматор, n - количество частей массива с четным значением
    sr:real; sr - среднее арифметическое
BEGIN
  summ:=0; n:=0; Обнуляем счетчики
  for i:=1 to k do
    begin
      a[i]:=random(50); Заполняем массив случайными числами
      write (a[i],' '); Выводим массив
      if a[i] mod 2=0 then
        begin
          summ:=summ+a[i]; Находим сумму частей массива с четными значениями
          n:=n+1
        end
    end;
  sr:=summ/n; Находим среднее арифметическое
  writeln;
  writeln (sr:0:2) Выводим среднее арифметическое
END.