Найти среднее арифметическое массива.

[gree]

Всем привет. Прошу помощи в написании програмки которая находит среднее арифметическое модулей всех значений ячеек массива. всего ячеек 6. тип массива одномерный. В принципе вот мой код.. но он не идет.(
помогите найти ошибку.. среда: делпхи.

procedure TForm1.Button1Click(Sender: TObject);
var a,b:array[1..6] of integer;
    i,s,rez:integer;
begin
s:=0;
for i:=1 to 6 do
a[i]:=StrToInt(StringGrid1.cells[i-1,0]);
for i:=1 to 6 do
b[i]:= abs(a[i]);
StringGrid2.Cells[i-1,0]:=IntToStr(b[i]);
s:=s+b[i];
end;
rez:=(s/6);
label1.caption:= inttostr(rez);
end.

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

[DM_bite]

rez:=(s/6);

А может так?

rez:=s div 6;

[gree]

Красным всё ровно выделяет..

[DM_bite]

Красным всё ровно выделяет..

Тогда иначе... Какая ошибка?

procedure TForm1.Button1Click(Sender: TObject);
var a,b:array[1..6] of integer;
    i,s,rez:integer;
begin
s:=0;
for i:=1 to 6 do
a[i]:=StrToInt(StringGrid1.cells[i-1,0]);
for i:=1 to 6 do
b[i]:= abs(a[i]);
StringGrid2.Cells[i-1,0]:=IntToStr(b[i]);
s:=s+b[i];
end;
rez:=(s div 6);
label1.caption:= inttostr(rez);
end;
end.

Не там end... и целочисленное деление это div как я уже сказал, а не /

[Levsha100]

rez должна быть типа real...

[gree]

[Pascal Error] Unit1.pas(42): E2029 Declaration expected but identifier 'rez' found

procedure TForm1.Button1Click(Sender: TObject);
var a,b:array[1..6] of integer;
    i,s,rez:integer;
begin
s:=0;
for i:=1 to 6 do
a[i]:=StrToInt(StringGrid1.cells[i-1,0]);
for i:=1 to 6 do
b[i]:= abs(a[i]);
StringGrid2.Cells[i-1,0]:=IntToStr(b[i]);
s:=s+b[i];
end;
rez:= (s div 6);
label1.caption:= inttostr(rez);
end;
end.

А можно внутри программы прописать чтоб переменная меняла тип после действия сложения всех значений? и потом уже делить.. ? или не то думаю?

[Пепел Феникса]

procedure TForm1.Button1Click(Sender: TObject);
var a,b:array[1..6] of integer;
    i,s,rez:integer;
begin
 s:=0;
 for i:=1 to 6 do
  a[i]:=StrToInt(StringGrid1.cells[i-1,0]);
 for i:=1 to 6 do
  begin
   b[i]:= abs(a[i]);
   StringGrid2.Cells[i-1,0]:=IntToStr(b[i]);
   s:=s+b[i];
  end;
 rez:= (s div 6);
 label1.caption:= inttostr(rez);
end;

я пологаю что должно было, быть так...