for i:=1 to s1 do
for j:=1 to s2 do a[i,j]:='';
for i:=0 to s1-1 do 
for j:=0 to s2-1 do StringGrid1.Cells[i,j]:='?';