Одномерный массив (Delphi)

[Estel]

Помогите пожалуйста с программой:

Известна температура каждого дня апреля. Определить самую теплую декаду (в апреле 3 декады по 10 дней), указав ее среднюю температуру. Учесть, что таких декад может быть две или три.

Сам пытался написать, но не выходит, подскажите в чем ошибка и способ ее исправления:

procedure TForm1.Button1Click(Sender: TObject);
const n=30;
Var i,imax:integer; max:real;
T:array[1..n] of integer;
S:array[1..3] of real;
begin
Randomize;
With StringGrid1 do begin
Cells[0,0]:='Номер';
Cells[1,0]:='1-ая декада';
Cells[2,0]:='2-ая декада';
Cells[3,0]:='3-ья декада';
For i:=1 to 10 do begin;
Cells[0,i]:=IntToStr(i);
T[1]:=-5+random(28);
Cells[1,i]:=FloatToStr(T[1]);
T[2]:=-5+random(28);
Cells[2,i]:=FloatToStr(T[2]);
T[3]:=-5+random(28);
Cells[3,i]:=FloatToStr(T[3]);
end;
end;
S[1]:=0;
S[2]:=0;
S[3]:=0;
For i:=1 to n do begin
case i of
1..10:S[1]:=S[i]+T[1];
11..20:S[2]:=S[i]+T[2];
21..30:S[3]:=S[i]+T[3];
end;
end;
For i:=1 to 3 do begin
S[i]:=S[i]/10;
end;
For i:=1 to 3 do if S[i]>max then begin
max:=S[i];imax:=i;
end;
Edit1.Text:=IntToStr(imax);
Edit2.Text:=FloatToStr(max);
end;
end.

[Vikenty]

какая именно ошибка "вылезает"
могу помочь ICQ: 612979261

[Estel]

Не суммирует, берет только 10-ую строку, находит максимальное число и его среднее (делит на 10).

[DoDge_VipeR]

var
S:array[1..3,1..10] of real;
t:array[1..3] of real;
j,i,imax:integer;
begin
....................
for i:=1 to 3 do
for j:=1 to 10 do
t[i]:=t[i]+s[i,j]/10;
imax:=1;
For i:=2 to 3 do if t[i]>max then begin imax:=i;
end;
...........
Edit1.Text:=IntToStr(imax);
Edit2.Text:=FloatToStr(t[imax]);
...........

[Estel]

Переделал, но считает неправильно:

Var S:array[1..3,1..10] of real;
T:array[1..3] of real;
j,i,imax:integer; max:real;
begin
Randomize;
With StringGrid1 do begin
Cells[0,0]:='Номер';
Cells[1,0]:='1-ая декада';
Cells[2,0]:='2-ая декада';
Cells[3,0]:='3-ья декада';
For i:=1 to 10 do begin;
Cells[0,i]:=IntToStr(i);
T[1]:=-5+random(28);
T[2]:=-5+random(28);
T[3]:=-5+random(28);
Cells[1,i]:=FloatToStr(T[1]);
Cells[2,i]:=FloatToStr(T[2]);
Cells[3,i]:=FloatToStr(T[3]);
end;
end;
For i:=1 to 3 do
For j:=1 to 10 do
T[i]:=T[i]+S[i,j]/10;
imax:=1;
For i:=2 to 3 do if T[i]>max then begin imax:=i;
end;
Edit1.Text:=IntToStr(imax);
Edit2.Text:=FloatToStr(T[imax]);
end;