Заменить нулевые элементы в матрице на заданное значение

var
  Form1: TForm1;
  n,m:Integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.btn1Click(Sender: TObject);
Var i:integer;
begin
n:=StrToInt(edt1.Text);
m:=StrToInt(edt2.Text);
StringGrid1.RowCount:=n+1;
StringGrid1.ColCount:=m+1;
for i:=1 to n do
 StringGrid1.Cells[0,i]:=IntToStr(i);
for i:=1 to m do
 StringGrid1.Cells[i,0]:=IntToStr(i);
end;
 
procedure TForm1.btn2Click(Sender: TObject);
var i,j,k:Integer; z:real;
A:array of array of Real;
s:array of array of Real;
begin
SetLength(a,n,m);
SetLength(s,n,m);
for i:=1 to n do
  for j:=1 to n do
  if StringGrid1.Cells[j,i]='' then
  a[i,j]:=StrToFloat(StringGrid1.Cells[j,i]);
z:=StrToFloat(edt3.Text);
for i:=0 to n-1 do
     for j:=0 to m-1 do
       if a[i,j]=0 then
       a[i,j]:=z;
  for i:=0 to n-1 do
   for j:=0 to m-1 do
  StringGrid2.Cells[i+1,j+1]:=FloatToStr(a[i,j]);
end;

StringGrid2.Cells[j+1,i+1]:=FloatToStr(a[i,j]);