Помогите, пожалуйста. В паскале. Пусть в массиве содержатся результаты измерений…

const d=31; var a: array[1… d] of integer; i, count, mdl: integer; begin for i: =1 to d do begin a[i]: =random (31); write (a[i], '); mdl: =mdl+a[i]; end; writeln; writeln ('Средняя температура: ', (mdl / d): 0:2); for i: =1 to d do if (a[i] > mdl / d) then inc (count); writeln ('Дни, в которые температура была выше средней: ', count); end.