Подпрограммы Опции

[-=BR@BUS=-]

Дан масив t содержащий 365 вещественных чисел. По массиву t, где указана температура каждого дня, определить название самого холодного месяца (с наименьшей среднемесячной температурой) и самого жаркого (с наибольшей среднемесячной температурой). Вычисление среднемесячной температуры организовать в подпрограмме.

Uses Crt;
Const n=365;

var A:array[1..n] of integer;
    min,m,i,s:integer;
    w1:real;

Function sr_tem(j,m:Integer;X:array of integer):real;
 Var k,sum,i:Integer;
     sr:real;
 Begin
 	sum:=0;
 	k:=0;
	For i:=j to m do begin
 	sum:=sum+X[i];
        k:=k+1;
	end;	
	sr:=(sum/2);
        sr_tem:=sr;
        Writeln('TEMP: ',sr);
        Writeln('------------------------');
end;


Begin
ClrScr;
Randomize;
For i:=1 to n do A[i]:=Random(80)-40;
Writeln('Ianvar');
W1:=sr_tem(A[1],A[31],A);
Writeln(w1);
readln;
end.

вот часть её, помогите доделать... а то я встал