Задача которую я делал 4 часа...

Program chel;

var
chisla:array[1..12,1..31] of string;
temp:array[1..12,1..31]of real;
avg:array[1..12] of real;
mes:array[1..12] of integer;
a,i,j:integer;
year_avg,sum_temp,otkl:real;

begin

year_avg:=0;
otkl:=0;
  for i:=1 to 12 do
    begin
    if (i=2) then
      a :=28;
    if ((i=1)or(i=3)or(i=5)or(i=7)or(i=7)or(i=10)or(i=12)) then
      a:=31
    else
      a:=30;
    for j:=1 to a do

    begin
        writeln('Введите данные за ',i,' месяц ',j,' день:');
        readln(chisla[i][j]);
      end;

  end;

 for i:=1 to 12 do
    sum_temp:=0;
    begin
    if (i=2) then
      a :=28;
    if ((i=1)or(i=3)or(i=5)or(i=7)or(i=7)or(i=10)or(i=12)) then
      a:=31
    else
      a:=30;
    for j:=1 to a do

    begin
        temp[i,j]:=StrToFloat(chisla[i,j].substring(6,9));
        sum_temp+=temp[i,j]
      end;
      avg[i]:=sum_temp/a;
    end;

for i:=1 to 12 do
  year_avg+=avg[i];
year_avg:=year_avg/12;
writeln('среднегодовая температура - ',year_avg);
for i:=1 to 12 do
  begin

    if ((avg[i]>year_avg)and(otkl<=(avg[i]-year_avg))) then

       begin
          otkl:=avg[i]-year_avg;
          mes[i]:=1;
       end

    else
      mes[i]:=0;
    if ((avg[i]<year_avg)and(otkl<=(year_avg-avg[i]))) then

       begin
          otkl:=year_avg-avg[i];
          mes[i]:=1;
       end

    else
      mes[i]:=0;

  end;
for i:=1 to 12 do

  begin
    if ((mes[i]=1) and ((year_avg-avg[i]) = otkl)or ((year_avg-avg[i]) = -otkl)) then

      begin
        if(i<=9) then
          writeln('0',i,' - ',avg,' - ',otkl)
        else
          writeln(i,' - ',avg,' - ',otkl);
      end;

  end;

end.