МАССИВЫ

[парадокс]

Здравствуйте! Помогите пожалуйста!!! Я надеюсь на вас! Имеется такая задачка:
пусть в массиве содержатся результаты измерений температуры воздуха, которые проводились ежедневно в течение декабря месяца. Требуется определить:
- минимальную температуру второй декады декабря;
- день, когда температура была ближе всего к средней температуре в декабре.

[Carbon]

var T:array [1..31] of float;

procedure Taking(var minimum:float; var day:byte);
var i:byte;
     avg,diff:float;
begin

  avg:=0;
  minimum:=T[16];
  day:=1;

  for i:=1 to 31 do
  begin
    avg:=avg+T[i];
    if (i>16) and (T[i]<minimum) then
      minimum:=T[i];
  end;
  
  avg:=avg/31;
  diff:=abs(avg-T[1]);
  
  if (abs(diff)>=0.000001) then
    for i:=2 to 31 do
      if (abs(avg-T[i])<diff) then
      begin
        diff:=abs(avg-T[i]);
        day:=i;
      end;
end;