Имеютися данные о среднемесячной температуре за год. Определите самую высокую и самую низкую температуры. Сколько месяцев в году было теплых(температура выше 0) через массивы

const N = 12; const k = 0; var temp : array [1..N] of integer;     i, min, max, count : integer; begin     min := 1000; max := -1000;     count := 0;     {Заполнение массива данными}     for i := 1 to N do     begin         write(i,'-й месяц: ');         readln(temp[i]);         if (temp[i] > max) then             max := temp[i];         if (temp[i] < min) then             min := temp[i];         {Если температура выше k - месяц считается теплым}         if (temp[i] > k) then             count := count + 1;     end;     writeln('Минимальная температура: ',min);     writeln('Максимальная температура: ',max);     writeln('Количество теплых месяцев: ',count);     readln; end.