Двумерный массив нахождение по формуле и вывод в ячеику

[Op1nG.Spark]

Rin а как сделать через цикл?
вместо


Код:
begin
chislo:=5;
z:=((StrToInt(StringGrid1.cells[1,1])+
StrToInt(StringGrid1.cells[1,2])+StrToInt(StringGrid1.cells[1,3])+
StrToInt(StringGrid1.cells[1,4]))*100)/chislo;
StringGrid1.cells[1,5]:=floatTostr(z);
z:=((StrToInt(StringGrid1.cells[2,1])+
StrToInt(StringGrid1.cells[2,2])+StrToInt(StringGrid1.cells[2,3])+
StrToInt(StringGrid1.cells[2,4]))*100)/chislo;
StringGrid1.cells[2,5]:=floatTostr(z);
z:=((StrToInt(StringGrid1.cells[3,1])+
StrToInt(StringGrid1.cells[3,2])+StrToInt(StringGrid1.cells[3,3])+
StrToInt(StringGrid1.cells[3,4]))*100)/chislo;
StringGrid1.cells[3,5]:=floatTostr(z);
end;



Код:
begin
s:=0;
for j:=1 to 6 do begin
for i:=1 to 4 do begin
s:=strtoint(StringGrid1.cells[i,j]);
StringGrid1.cells[i,j]:inttostr(s);


как то так ведь да? только нужно еще действия выполнить те же самые,расчтитать успеваемость.