Дан массив состоящий из n (> 1) вещественных чисел.найти среднее арифметическое значение чисел массива

Var
n,i,sum: integer;
sr: real;
a: array [1..100] of real;
begin
writeln (vvel n);
read (n);
writeln (n);
for i:=1 to n do
begin
read (a[i]);
 sum:=sum+a[i];
 end;
  sr:=sum/n;
  writeln (srednee=,sr);
  end.