Дан массив из 10 элементов, вывести все элементы значение которых превосходит среднее арифметический элемент массива

Const n=10;
Var A:array[1..n] of integer;
    sr:real;
    i:integer;
Begin
    sr:=0;
    For i:=1 to n do Begin
     write('Введите ',i,'-ый эллемент ');readln(A[i]);
     sr:=sr+A[i];
    End; 
    sr:=sr/n;
    write('Элементы превосходящие среднее арифметическое: ');
    For i:=1 to n do
     if A[i]>sr then write(A[i]:4);
End.