Написать программу которая формирует одномерный массив ( массив температур ) из n целых чисел и выводит количество отрицательных элементов ( дней в месяце ). pascal abc !

Uses crt;
var T: array [1..12] of real;
i:integer;
begin

{Цикл ввода}
for i:=1 to 12 do
begin
Write('Температура [',i:2,'] = ');
readln(T[i]);
end;
writeln();

{Поиск отрицательных элементов}
Writeln('Отрицательные температуры');
for i:=1 to 12 do
begin
if T[i]<=0 then
Writeln(T[i]);
end;
Readln();
end.