Массив содержит сведения о количестве осадков выпавших за каждый из 12 месяцев. Найти: а) общее

var
i, sum, sum2 : integer; // объявляем переменные целочисленного типа.
arr : array [1..12] of integer; // объявляем массив.
Begin
writeln('Введите количество осадков за каждый месяц в году в мм:'); // вывод строки на экран.
for i:= 1 to 12 do // начало цикла.
begin
readln(arr[i]); // считываем значение температуры.
sum2:= sum2 + arr[i]; // считаем сумму температур за каждый месяц.
if arr[i] < 30 then // если осадков меньше 30 мм.
sum := sum + 1; // считаем количество элементов.
end;
writeln('Общее количество осадков за год: ', sum2); //вывод строки на экран.
writeln('Количество засушливых месяцев в году: ', sum); //вывод строки на экран.
End.