Работа с массивами (Delphi)

[OstapS]

Люди помогите плс, мне нужно с двухмерного масива каждого рядка, найти среднее арифметическое, и вывести его цыфрой в одномерный массив. Я написал на Паскале, все работает, а вот в делфи я не силен, и не знаю переменных для вывода.. вообщем вот скрин где я написал, но у меня выбивает ошибка при нажатии на RUN " is not a valid floating point value.. Помогите. Сорри за мой Русский. И спасибо Всем.

[OstapS]

Вообщем я пересмотрел, переделал, но снова ошибка.. вот текст кнопки, должна роботать.. :
var s: real;
begin
for I := 1 to 5 do
begin
for j := 1 to 4 do
begin
s:=s+SG1[i,j];
end;
SG2[i]:= s / 4;
end;
For i:=1 To 4 Do
stringgrid2.CELLS[i-1,0]:= floattostr(SG2[i]);
end;
или
------------------------
procedure TForm1.Button1Click(Sender: TObject); {IA?ENEAII?}
var
s,sr:real;
begin
For i:=1 To 4 Do
For j:=1 To 5 Do
If (StringGrid1.Cells[j-1,i-1]='') Then
SG1[i,j]:=0
Else
SG1[i,j]:=StrToFloat(StringGrid1.Cells[j-1,i-1]);

For i:=1 To 4 Do
Begin
sr:=0;
For j:=1 To 5 Do
s:=SG1[i,j]+s;
sr:=s/5;
SG2[i] := sr;
End;
For i:=1 To 4 Do
StringGrid2.Cells[0,i-1] := FloatToStr(SG2[i]);
end;