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

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

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

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