Помогите, пожалуйста, очень срочно Сколько элементов массива размерностью N на M больше заданного числа R. Подсчитать среднее арифметическое этих элементов.

const   N = 5;   M = 10;   var   a: array [1..N, 1..M] of real;     s, R: real;   kol, i, j: integer;  //kol - количество чисел   begin   writeln('Введите R');   readln(R);   for i:= 1 to N do   for j:= 1 to M do   begin     writeln('Введите a[', i, ', ', j, ']');     readln(a[i, j]);     if a[i, j] > R then     begin       kol:= kol + 1;       s:= s + a[i, j];     end;   end;   s:= s / kol;   writeln(kol, ' чисел > ', R);   writeln('Среднее арифметическое равно ', s); end.