помогите сделать программу выввод в виде строк StringGrid в Delphi

Question

Заполнить элементы массива B(10,10) случайными числами. Определить сумму элементов, образующих периметр массива и количество B[i,i]<=0,1

Наталья Кулеш(Гаврилова) · Accepted Answer

как то так, над количеством думай сам)

var i,j:integer;
b:array[0..9,0..9] of float;

sum1,sum2,sum3,sum4,sum:float;

begin
for i:=0 to 9 do
 for j:=0 to 9 do

begin

b[i,j]:=1/random(13);

string.grid.cells[i,j]:=floattostr(b[i,j]);

end;

for j:=0 to 8 do

begin

sum1:=b[1,j]+b[1,j+1];

sum2:=b[9,j]+b[9,j+1];

end;

for 1:=1 to 7 do
begin
sum3:=b[i,1]+b[i+1,1];
sum4:=b[i,8]+b[i+1,8];
end;
sum:=sum1+sum2+sum3+sum4;
end.