помогите! создать массив из 9 целых чисел: 12 24 3 4 16 15 7 18 27. найти среднее арифметическое элементов массива больших 10

var a : array [1..9] of integer = ((12), (24), (3), (4), (16), (15), (7), (18), (27)); sum, count, i : integer;begin sum := 0; count := 0; for i := 1 to 9 do if a[i] > 10 then begin inc (count); inc (sum, a[i]); end; writeln ('Таких элементов ', count); if count > 0 then begin writeln ('Их сумма ', sum); writeln ('Их среднее арифметическое ', sum / count); end;end.