Помогите пожалуйста, СРОЧНО!!!Написать программы в Pascal ABC1)найдите количество элементов в массиве w(18), больших среднего арифметического всех его элементов.2)найдите, сколько раз встречается в одномерном массиве т(20) максимальное по величине число. 3)найти сумму нечетных отрицательных элементов массива d(10).

const n=1000; var a:array[1..n] of integer;     k,l,m:integer;     i:integer; begin writeln('Введите количество элементов массива: '); readln(m); writeln('Введите массив: '); for i:=1 to m do readln(a[i]); for i:=1 to m do begin   k:=k+a[i];   k:=k div m; end; for i:=1 to m do   if a[i]>k then inc(l); writeln('Количество элементов, больших среднего арифметического всех его элементов: ',' ',l); end.