Помогите, пожалуйста…

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.