Даны 50 чисел. Найти их среднее арифметическое. На Паскале, помогите пожалуйста!

const n = 50;var  a :array [1..n] of integer;  i, sum :integer;  sr :real;  begin  randomize;  for i:= 1 to n do    a[i]:= random(100);      for i:= 1 to n do    sum:= sum + a[i];  sr:= sum/n;  writeln(sr);end.