ПОМОГИТЕ!!!!
Дан массив из 15-ти элементов. Вывести номера элементов больше среднего арифметического.

const n=15; var a:array[1..n] of integer;i,s:integer; sr:real;beginRandomize;writeln('Массив:');for i:=1 to n do begin a[i]:=random(21); write(a[i]:3); end;writeln;s:=0;for i:=1 to n do s:=s+a[i];sr:=s/n;writeln('Среднее арифметическое = ',sr:6:2);writeln('Номера элементов, больших среднего арифметического:');for i:=1 to n do if a[i]>sr then write(i:3);writeln;end.Пример:Массив:  9 19 14 8 7 10 5 10 6 14 15 2 11 17 13 Среднее арифметическое = 10.67 Номера элементов, больших среднего арифметического:   2 3 10 11 13 14 15