Найти среднее арифметическое 6 рандомных чисел до 100 в массиве

Const n=6;
var 
  sa: real;
  i: integer;
  var a: array[1..n] of integer;
begin
  sa:=0;
  for i:=1 to n do begin
    a[i]:=random(101);
    write (a[i]:4);
    sa:=sa+a[i];
  end;
  sa:=sa/n;
  writeln;
  writeln (Среднее арифметическое = ,sa)
end.
----------результат:------------
 97 37 88 35 39 55
Среднее арифметическое = 58.5