Pascal abc составить программу через array и for подсчитайте количество морозных дней (когда температура ниже -20

VAR
   i, kol: Integer;
   a: Array [1..20] of Integer;
BEGIN
   For i := 1 to 20 do Read(a[i]);

   For i := 1 to 20 do
      If (a[i] < -20) then Inc(kol);

   Write(kol);
END.