Заполнить линейный массив из 10 частей случайными числами. Вычислить среднее

Var
  a: array [1..10] of integer;
  i, k: byte;
  sum: real;
 
begin
randomize;
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.