Как найти среднее арифметическое в одномерном массиве, если включен генератор случайных чисел?

Var a:array[1..20] of integer;
i:integer;
sr:real;
begin
for i:=1 to 20 do begin
a[i]:=random(-20,20);
sr+=a[i];
write(a[i],' ');
end;
writeln;
write(sr/20:3:2);
end.