Заполнить массив данными о температуре воздуха в течении недели.
1) Вычислить сред. температуру воздуха.
2) Вывести, когда температура была ниже средней и посчитать их количества.
3) Сформировать массив отклонений, температуру от среднего значения.
(ПАСКААЛЬ!)
HELP ME PLEASE!
Заранее, благодарю! ;)
*информатика(ИКТ)*

const n=7;Day:array[1..7] of string[15] = ('Понедельник','Вторник','Среда','Четверг','Пятница','Суббота','Воскресенье');var T:array[1..7] of integer; D: array[1..7] of real; i,k:byte; s:integer; SR:real;begin S:=0; randomize; Writeln('Температура в течение недели:'); for i:=1 to n do  begin   T[i]:=random(50)-25;   S:=S+T[i];   write(T[i]:4);  end; writeln;SR:=S/n;writeln('Средняя температура: ',SR:3:2);k:=0;Writeln('Температуры ниже средней в дни : ');for i:=1 to n do if T[i]<SR then  begin     write(Day[i]:15);     k:=k+1;  end;writeln;writeln('Всего ',K,' дня(ей)');writeln('Массив отклонений:');for i:=1 to n do begin  D[i]:=T[i]-SR;  write(d[i]:8:3); end;end.