Бархатный сезон

Задача:

Данные о температуре воды на Черноморском побережье за декаду сентября хранятся в массиве Определить, сколько за это время было дней, пригодных для купания (Т > 20 ).

Код:


program Temperature;
var i,n: integer;
    T: array[1..10] of integer;
Begin
Randomize;
for i:= 1 to 10 do begin
  T[i]:= 15 + Random(15);
  Write(T[i], ' ');
  if T[i] > 20 then inc(n);
                   end;
Writeln;
Write('Дней для купания: ',n);
Readln;
End.