Заполнить линейный массив из 10 элементов случайными числами. Вычислить среднее арифметическое всех его элементов.Pascal ABC

var  a: array [1..10] of integer;  i, k: byte;  sum: real;  beginrandomize;sum := 0;k := 0;writeln(' *** Исходный массив ***');for i := 1 to 10 do begin  a[i] := random(50);  sum := sum + a[i];  k := k + 1;  write(a[i], ' ');end;writeln(#13+'Среднее арифметическое = ', (sum/k):0:2);  end.