Массивы(помогите с ошибкой) Опции

[SayMYname]

Информация о среднесуточной температуре воздуха за месяц задана
в виде массива. Определить, сколько дней температура была ниже среднесуточной. Помогите!!! Плиз!!! Заранее благодарна))

Program;
uses crt;
const maxn=31;
var
   n,i,k:integer;
   s:real;
   a:array [1..maxn] of real;
begin
   clrscr;
   writeln ('Vvedite kol-vo dnej i mesyacev');
   readln(n);
   s:=0;
   k:=0;
for i:=1 to n do
 begin
   writeln('Vvedite temperatyry za',i,'ii den');
   readln (a[i]);
   s:=s+a[i];
  end;
 for i:=1 to n do
   begin
    if a[i]<(sin) then
    irc(k);
  end;
   writeln('temperatyra bila nizge sredneyto4noj',k,'dnej');
   readkey;
end.

М

Просьба при публикации программного кода использовать теги! Lapp