дан массив состоящий из 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.

пишет в 12 строке ,,нельзя преобразовывать тип real к integer

в 9 ,,параметр цикла for в pascalabc.net должен описываться в заноловке цикла, как это все исправить?