Информатика (pascal): написать программу для след : найти среднюю температуру, если кол-во n дней, когда t > =5. вывести да или нет

Uses crt;

const N=30;

var a:array[1..N] of integer;

  t,sum:integer; 

begin

clrscr;

sum:=0;

  for t:=1 to N do

begin

    read(a[i]);

sum:=sum+a[i];

if (a[i]>=5) then begin  writeln('Да'); end

else writeln('Нет');

end;

writeln('Средняя температура за месяц: ',sum/N);

readkey;

end.