информация о средней температуре. массив

[felmro]

Выбрать способ представления данных и составить список используемых переменных. Сформулировать задачу математически
Информация о средней суточной температуре воздуха за
месяц задана в виде массива. Определить, температура
скольких дней была ниже среднемесячной.

Помогите с этой програмкой
спасибо

[Tkirill]

uses crt;
var
mas:array[1..30] of integer;
i,sr,kol:integer;
begin
clrscr;
for i:=1 to 30 do
begin
writeln(' Введите температуру за ',i,' день ');
readln(mas[i]);
end;
writeln;
sr:=0;
for i:=1 to 30 do
begin
sr:=sr+mas[i];
end;
sr:=round(sr/30);
kol:=0;
for i:=1 to 30 do
begin
if mas[i]<sr then kol:=kol+1;
end;
writeln(kol,' дней температура была ниже средней ');
readln;
end.